Estou programando em ADO e estou usando a rotina abaixo para conexao, porem qdo algum campo da tabela nao é preenchido (atraves de txt e combos em um formulario) da o seguinte erro: '-214 721 7887(80040e21)' - Erros

Abaixo segue o coigo que estou utilizando:

 

'No general

Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

 

Private Sub Form_Load()
' abre a conexao com o BD
        With Conn
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Meus documentosControle_de_Liberações_UP.mdb;Mode=Read|Write|Share Deny None;Persist Security Info=False"
        .ConnectionTimeout = 50
        .Open
        End With
        Rs.Open "Select * from tab_situação", Conn, adOpenKeyset, adLockOptimistic
        Rs.AddNew
        Trava_Tela
End Sub

Private Sub CmdOk_Click()

 'Aqui sera incluida a cod. para se gravar um novo registro
If txtNumero.Text = Empty Then
    MsgBox "Favor preencher o número da peça."
    txtNumero.SetFocus
ElseIf txtDenominação.Text = Empty Then
    MsgBox "Favor preencher o nome da peça."
    txtDenominação.SetFocus
ElseIf cbPrograma.Text = Empty Then
    MsgBox "Favor informar o programa."
    cbPrograma.SetFocus
Else
    Rs("Numero_peça_Situação") = txtNumero.Text
    Rs("Denominação_Situação") = txtDenominação.Text
    Rs("Programa_Situação") = cbPrograma.Text
    Rs("Cod_Programa_Situação") = cbCod_Programa.Text
    Rs("VDS_Situação") = txtVDS.Text
    Rs("Recebimento_Situação") = txtCronograma.Text
    Rs("Prev_B_Situação") = txtPrev_B.Text

    Rs("Real_B_Situação") = txtReal_B.Text
    Rs("Numero_Desenho_Situação") = txtNumero_Desenho.Text
    Rs("Data_Desenho_Situação") = txtData_Desenho.Text
    Rs("Inicio_Fabril_Situação") = txtInicio_Fabril.Text
    Rs("Tempo_Fabril_Situação") = txtTempo_Fabril.Text
    Rs("Prev_Entrega_Situação") = txtPrev_entrega.Text
    Rs("Fornecedor_Situação") = cbFornecedor.Text
    Rs("Contato_Situação") = cbContato.Text
    Rs("DDD_Tel_Situação") = txtDDD.Text
    Rs("Telefone_Situação") = txtTelefone.Text
    Rs("QA_Situação") = cbQualidade.Text
    Rs("SSE/PFCP_Situação") = txtSSE.Text
    Rs("SC_Situação") = txtSC.Text
    Rs("OBS_Situação") = txtObs.Text
    Rs.Update

    MsgBox "Registro incluido com sucesso!"
    CmdAdicionar.BackColor = vbWhite
    CmdOk.Enabled = False
    CmdOk.Visible = False
    CmdCancelar.Visible = False
    Call Destrava_Cmd
    Call Limpa_Campo
End If

End Sub

 

Alguem poderia me ajudar a resolver esta?

 

Valeu

Michaelsnts

faça assim que eu acho que resolveria seu problema:

 

Rs("Numero_peça_Situação") = iif(txtNumero.Text <> "", txtNumero.Text, "Null")
Rs("Denominação_Situação") = iif(txtDenominação.Text <> "", txtDenominação.Text, , "Null)

Cara, utilize comandos SQL para inserções de dados. Deixar tudo a cargo do ADO é muito temerário. O SGBD é mais confiável do que os Componentes de Acesso a Daddos.

 

eu utilizo assim

 

If Not IsNull(rs!campo) Then
text1.Text = rs!Campo

End If

 

falow um abra'co