CONSUTA VB6 EM ACCESS COM 3 CONDICOES

  Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open [Ô]SELECT * [Ô] & _
        [Ô]FROM alarme1 [Ô] & _
        [Ô]WHERE equipamento = [ô][Ô] & equip1.Text & [Ô] [ô] and data = [ô][Ô] & frmautomacao.dataatual.Text & [Ô][ô] and hora = [ô][Ô] & frmautomacao.horaatual.Text & [Ô][ô][Ô] & _
        [Ô]ORDER BY Código;[Ô], con, adOpenKeyset, adLockReadOnly
[ô]Rotina para alimentar o ComboBox
Do While Not rs.EOF
      statusacao1.Text = rs.Fields([Ô]acao[Ô])
      Timer2.Enabled = True
      [ô] Combo1.ItemData(Combo1.NewIndex) = rs.Fields([Ô]codigo[Ô])
    rs.MoveNext
Loop

[ô]Fechar e descarregar os objetos de acesso da memória
rs.Close
Set rs = Nothing
[ô]con.Close
Set con = Nothing

End Sub
 

  Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
         [Ô]Data Source=automacaocasa.mdb[Ô]

[ô]Objeto de acesso à tabela Products
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open [Ô]SELECT * [Ô] & _
        [Ô]FROM alarme1 [Ô] & _
        [Ô]WHERE equipamento = [ô][Ô] & equip1.Text & [Ô] [ô] and data = [ô][Ô] & frmautomacao.dataatual.Text & [Ô][ô] and hora = [ô][Ô] & frmautomacao.horaatual.Text & [Ô][ô][Ô] & _
        [Ô]ORDER BY Código;[Ô], con, adOpenKeyset, adLockReadOnly
[ô]Rotina para alimentar o ComboBox
Do While Not rs.EOF
      statusacao1.Text = rs.Fields([Ô]acao[Ô])
      Timer2.Enabled = True
      [ô] Combo1.ItemData(Combo1.NewIndex) = rs.Fields([Ô]codigo[Ô])
    rs.MoveNext
Loop

[ô]Fechar e descarregar os objetos de acesso da memória
rs.Close
Set rs = Nothing
[ô]con.Close
Set con = Nothing