ERRO NA CONSULTA AO BD ACCESS

MARIOANDRADE 03/08/2014 20:54:07
#440148
Meus amigos, conforme mostra a imagem acima, mesmo tendo valores na txtAnome.text o programa apresenta erro.
Alguém pode dizer onde está o erro neste código?

 Dim Mes As Integer
    Dim Ano As Integer
        Mes = Month(dtpRelatorio.Value)
        Ano = Year(dtpRelatorio.Value)

    ConexaoBD
        rs.Open [Ô]select * from TBMesRef where Codigo=[Ô] & Cod_cli & [Ô] And Mes_Ref=[Ô] & Mes & [Ô] And Ano_Ref= [Ô] & Ano & [Ô][Ô], db, 3, 3
            rs(1) = [Ô][Ô] & txtAnome.Text
            rs(2) = [Ô][Ô] & txtAdiaVenci.Text
            rs(3) = [Ô][Ô] & cmbApago.Text
            If cmbApago.Text = [Ô]SIM[Ô] Then rs(6) = dtpPagamento.Value

        rs.Update
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
OMAR2011 03/08/2014 22:50:04
#440149
Você preparou a tabela para Update.
Onde está o AddNew?
Tópico encerrado , respostas não são mais permitidas
Voltar