Pessoal tenho uma tabela chamada contratos.Preciso montar um select, de forma que de acordo os resultados encontrados ele mostre uma msg...

sql = " select contrato from contratos WHERE contrato= '" & txtcontrato.Text & "'"
rs.Open sql, Conexao


While Not adoRs.EOF


If IsNull(adoRs!data) =true Then
MsgBox " Contrato não recepcionado"
Exit Sub
End If
adoRs.MoveNext
Wend
////o q posso fz , tá dando erro?????????

Qual o erro. Mostre a mensagem e a linha do erro.

sql = " select contrato from contratos WHERE contrato= '" & txtcontrato.Text & "'"
rs.Open sql, Conexao
While Not adoRs.EOF

      If IsNull(adoRs!data) Then
           MsgBox " Contrato não recepcionado"
           Exit Sub 
      End If
      adoRs.MoveNext
Wend

pq a primeira instrucao naum esta sendo analisada???Fiz a consulta de um contrato, onde o campo data é null, mas na condicao ele naum reconhece e isso e pula para proxima,pq??????? ele pula para prox instrucao 

 

sql = " select contrato from contratos WHERE contrato= '" & txtcontrato.Text & "'"
rs.Open sql, Conexao

 While Not adoRs.EOF
        If IsNull(adoRs!data) = True Then
            MsgBox " Contrato não recepcionado"
            Exit Sub
        End If
        adoRs.MoveNext
    Wend
    If adoRs.EOF Then
        MsgBox " OI"
        Exit Sub
    End If

vc tem certeza de que o campo data da tabela realmente esta trazendo nulo... verifique isso, outra coisa, eu faço diferente a pergunta

faço assim via ado

if isnull adors("data")

      msgbox "contrato nao recepcionado"

end if

OK, BRIGADO, FUNCIONOU