Prova con:
codice:
Dim Conn As OledbConnection1
Conn.Open()
Dim strSQL As String = "SELECT nomecampo FROM Tabella"
Dim Cmd As New OleDb.OleDbCommand(strSQL, Conn)
Dim DataReader As OleDb.OleDbDataReader
Try
DataReader = Cmd.ExecuteReader
While DataReader.Read()
ComboBox1.Items.Add(DataReader("nomecampo"))
End While
Catch
MsgBox("Si è verificato un errore." & vbNewLine & Err.Description, MsgBoxStyle.Critical, "Errore: " & Err.Number)
Finally
Conn.Close()
Cmd = Nothing
DataReader.Close()
Conn = Nothing
DataReader = Nothing
End Try