I think you have to try the following:
Dim DB_Adapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Ships] WHERE [Name] = '" & ComboBox42.Text & "'", myConnection)
Dim dt As DataTable
DB_Adapter.Fill(dt)
For Each dr As DataRow In dt.Rows
Next