这是我以前写的一个基于VB的SQL条件查询。你参考一下。
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
        Dim dr As SqlDataReader
        Dim s As String
        Dim wendu As String
        Dim home As room
        Dim time As String
        wendu = TextBox6.Text.ToString
        Try
            con.ConnectionString = "server = USER-20150216TC\ZHOU;database = ZHOU;user id = sa;password=zhou;"
            s = "select room1,room2,co,red, tim from Table_1 " + "where room1>=" + "'" + wendu.ToString + "'" + "or room2>=" + "'" + wendu.ToString + "'"
            cmd.Connection = con
             = CommandType.Text
             = s
            con.Open()
            dr = cmd.ExecuteReader
            Do While dr.Read()
                home.wendu1 = dr.GetString(0)
                home.wendu2 = dr.GetString(1)
                home.co = dr.GetString(2)
                home.red = dr.GetString(3)
                time = dr.GetString(4)
                DataGridView1.Rows.Add(home.wendu1, home.wendu2, home.co, home.red, time)
            Loop
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

在【工程】-【引用】中引用这二个，这样才能在VB中操作数据库。
下面是一个示例，供参考：

Dim cn As New ADODB.Connection, RS As New ADODB.Recordset  '声明数据库连接对象 cn 与记录集对象 RS
cn.ConnectionString = strSQL   ' strSQL 是连接数据库的 SQL语句，例如连接Access数据库：
'strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\会员资料.mdb;Persist Security Info=False"
cn.Open    '这样VB就连接了数据库
RS.Open "select * from 会员表", cn, 3, 2  '连接到《会员表》的数据表，从而可以操作 RS 记录集
'在这里可以读取、修改、删除记录，例如下面是读取数据到文本框
Text1.Text = RS!姓名
Text2.Text = RS!性别
Text3.Text = RS!年龄
'....................
'读取完成后，关闭记录集对象与数据库连接对象
RS.Close
cn.Close