Fill combobox with field in table

[weijian]

Dim objConn as New OleDbConnection(strDSN)
Dim objCmd as New OleDbCommand(strSQL, objConn)
Dim objReader as OleDbDataReader = objCmd.ExecuteReader

While objReader.Read
    If Not IsDBNull(objReader.GetValue(0)) Then
        Combo1.Add(objReader.GetString(1))
    End If
End While

I think...

Of course you must know the ordinal number of your column to assign the parameters on GetValue and GetString