combo box nightmares

[namitao]

hi
I have a combo box that pulls the data from a look up table present in the SQL server.
I am getting this weird error
"string or binary data would be truncated"

This only happens when the drop down list has strings like
"voice_and_data"
"handset_in_closet"

Can some one please help
The code is

Private Sub load_cmbMbl()
Dim conSQL As ADODB.Connection

'Sets connection
Set conSQL = New ADODB.Connection

Dim strSQLServer As String
Dim strSQLDatabaseToOpen As String
Dim strConnectString As String
Dim strSQL2 As String


strSQLServer = "sfdaqsql1"
strSQLDatabaseToOpen = "techlog_copy"
strConnectString = "Provider=sqloledb;" & _
"Integrated Security=SSPI;" & _
"Data Source=" & strSQLServer & ";" & _
"Initial Catalog=" & strSQLDatabaseToOpen & ";"

conSQL.Open (strConnectString)

cmbMbl.Clear

Dim rsRecords As ADODB.Recordset
Set rsRecords = New ADODB.Recordset

strSQL2 = "SELECT mobile_test FROM Mobile_Test_Lookup"
rsRecords.Open strSQL2, conSQL
If Not (rsRecords.BOF And rsRecords.EOF) Then
rsRecords.MoveFirst
Do
cmbMbl.AddItem rsRecords.Fields
rsRecords.MoveNext
Loop Until rsRecords.EOF
End If
rsRecords.Close

Set rsRecords = Nothing
conSQL.Close
End Sub

Please help

[ILJester]

You ommitted the field name to use to add to the combobox :

Do
cmbMbl.AddItem rsRecords.Fields
rsRecords.MoveNext

should be:

Do
cmbMbl.AddItem rsRecords.Fields("fieldname")
rsRecords.MoveNext

Hope that helps

[namitao]

I am still getting the same errror.

Dim rsRecords As ADODB.Recordset
Set rsRecords = New ADODB.Recordset

strSQL2 = "SELECT status FROM Status_Lookup"
rsRecords.Open strSQL2, conSQL
If Not (rsRecords.BOF And rsRecords.EOF) Then
rsRecords.MoveFirst
Do
cmbStatus.AddItem rsRecords.Fields("Status").Value
rsRecords.MoveNext
Loop Until rsRecords.EOF
End If
rsRecords.Close

[Mark Gambo]

hi
I have a combo box that pulls the data from a look up table present in the SQL server.
I am getting this weird error
"string or binary data would be truncated"

is this the line that the error is generated?

cmbStatus.AddItem rsRecords.Fields("Status").Value

if so, what is the value of rsRecords.Fields("Status").Value?

[dglienna]

I would just use the field number

.Fields(0)

Which would be the first field returned from your database