sanders720
Programmer
This program works great, until I try to add the SHAPE field.
====> Me.cboShape.AddItem .Fields("SHAPE"

All fields in the database are text. I have checked the field names and they all confirm correct. I cannot understand why the logic works for the first three and not for the fourth thru seventh.
Any thoughts, and thanks in advance for the help.
Private Sub Form_Load()
Dim rs As Recordset
Dim sql As String
Dim selsql As String
Dim q As Integer
Dim c As Integer
Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.Open "SELECT DISTINCT ITEM from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("ITEM"

Me.cboItem.AddItem .Fields("ITEM"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT CODE from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("CODE"

Me.cboCode.AddItem .Fields("CODE"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT DESCRIPTION from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("DESCRIPTION"

Me.cboDescription.AddItem .Fields("DESCRIPTION"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT SHAPE from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("SHAPE"

====> MsgBox .Fields("SHAPE"

====> Me.cboShape.AddItem .Fields("SHAPE"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT WEIGHT from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("WEIGHT"

Me.cboWeight.AddItem .Fields("WEIGHT"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT MATERIAL from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("MATERIAL"

Me.cboMaterial.AddItem .Fields("MATERIAL"

.MoveNext
End If
Next q
.Close
.Open "SELECT DISTINCT GRADE from tblStockList", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\deepblue\EngineeringBOM\Data\EngineeringBOM_data.mdb;Persist Security Info=False", adOpenStatic, adLockOptimistic
.MoveLast
c = .RecordCount
.MoveFirst
For q = 1 To c
If .Fields("GRADE"

Me.cboGrade.AddItem .Fields("GRADE"

.MoveNext
End If
Next q
.Close
End With
End Sub