Visual Basic

Private Sub Bt_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_OK.Click
     Me.ListBox1.Items.Clear()
     Dim DBConn As OdbcConnection
     Dim i As Integer
     Dim AD As OdbcDataAdapter
       For i = 0 To CarsNamesLBox.Items.Count - 1
         If CarsNamesLBX.Items(i).Selected Then
             DBConn = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=myServer;Database=CarCompaniesDB;User=myUser;Password=mypass;Option=3;")
             AD = New OdbcDataAdapter("SELECT CarID, Model From CarsTB where Make = 'CarsNamesLBox.Items(i).Text'", DBConn)

         End If
       Next
     If Not IsNothing(DBConn) Then
         DBConn.Open()
         Dim DT As New DataTable
         AD.Fill(DT)
         AD.Dispose()
         Me.ListBox1.DataSource = DT
         Me.ListBox1.DataTextField = "Model"
         Me.ListBox1.DataValueField = "CarID"

     End If

 End Sub

Source Error: 

Line 52:         Dim AD As OdbcDataAdapter
Line 53:         For i = 0 To CarsNamesLBox.Items.Count - 1
Line 54:             If CarsNamesLBX.Items(i).Selected Then
Line 55:                 DBConn = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=myServer;Database=CarCompaniesDB;User=myUser;Password=mypass;Option=3;")
Line 56:                 AD = New OdbcDataAdapter("SELECT CarID, Model From CarsTB where Make = 'CarsNamesLBox.Items(i).Text'", DBConn)