Would you guys check this code up for me
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox3.Items.Clear()
ListBox2.Items.Clear()
ListBox4.Items.Clear()
Dim myconnstring1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\db1.mdb;Jet OLEDBatabase Password=sa;"
Dim myinsertquery1 As String = "SELECT contents,code FROM list WHERE listname like '" & ComboBox1.Text & "' "
Dim myconnection1 As OleDbConnection = New OleDbConnection(myconnstring1)
Dim mycommand1 As OleDbCommand = New OleDbCommand(myinsertquery1, myconnection1)
myconnection1.Open()
Dim myreader1 As OleDbDataReader = mycommand1.ExecuteReader
Try
Do While myreader1.Read
ListBox4.Items.Add(myreader1.Item(1).ToString)
ListBox3.Items.Add(myreader1.Item(1).ToString + " " + myreader1.Item(2).ToString)
ListBox2.Items.Add(myreader1.Item(2).ToString)
Loop
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
myreader1.Close()
myconnection1.Close()
End Sub