Adatbázis adatok VB. NET-be?

Ezt próbáltad már?

Public Sub Question_Update()

Dim Cmd As OleDb.OleDbCommand

Dim Con As OleDb.OleDbConnection

Dim Sql As String = Nothing

Dim Reader As OleDb.OleDbDataReader

Dim ComboRow As Integer = -1

Dim Columns As Integer = 0

Dim Category As String = Nothing

Dim based As String = cmbFeatures.Text

cmbQuestion.Items.Clear()

Con = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Questions.mdb")

Sql = "SELECT" & " [" & based & "] " & "FROM [Questions]"

Cmd = New OleDb.OleDbCommand(Sql, Con)

Con.Open()

Reader = Cmd.ExecuteReader()

While Reader.Read()

For Columns = 0 To Reader.FieldCount - 1

MsgBox(Reader.Item(Columns).ToString)

Category = Reader.Item(Columns) 'READ COLUMN FROM DATABASE

Next

cmbQuestion.Items.Add(Category)

ComboRow += 1

End While

Con.Close()

End Sub