try oledbcommand object
Code:
conn.Open()

        sSQL =  "your Query"

        cmd = New OleDb.OleDbCommand(sSQL, conn)

        adapter.SelectCommand = cmd
        
        adapter.Fill(ds)

        conn.Close()