Ajuda com o ADO (Para o amigo TREZE ou quem puder.

Srs. - bom dia. estou fazendo um programinha de cadastro usando o ADO, no entanto está ocorrendo um erro quando eu tendo fazer a inclusão de dados, se eu deixar algum campo branco o sistema apresenta um erro.

Abaixo o código que estou usando:

Private Sub Form_Load()

    'Abre a conexão
    cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:     esteempresa.mdb;"

    'Abre o Recordset
    rst.CursorLocation = adUseClient
    rst.Open "Select * From Authors", cnn, adOpenKeyset, adLockOptimistic, adCmdText
    load_rec

End Sub
Private Sub load_rec()
    Text1.Text = "" & rst.Fields(0)
    Text2.Text = "" & rst.Fields(1)
    Text3.Text = "" & rst.Fields(2)
    Text5.Text = rst.AbsolutePosition
    Text6.Text = rst.RecordCount
End Sub

Private Sub Command1_Click()
  rst.MovePrevious
  If rst.BOF Then
    MsgBox "Inicio do arquivo"
    rst.MoveNext
    Exit Sub
  End If
  load_rec
End Sub

PESQUISA

Private Sub Command6_Click()
   Dim resposta As String
   Dim marca As Variant
   resposta = InputBox("Informe o codigo a localizar ", "Localizar", "1", 1800, 3000)
   If resposta <> "" Then
      marca = rst.Bookmark
   Else
      Exit Sub
   End If
   rst.Find "Au_ID=" & resposta
   If rst.EOF Then
       MsgBox "Não encontrei o codigo " & resposta
       rst.Bookmark = marca
       Exit Sub
   End If
   load_rec
End Sub

*****PARA INCLUIR (ACONTECE O PROBLEMA)*****

Private Sub Command9_Click()
On Error GoTo trataerro
If Command9.Caption = "&Inclui" Then
   rst.AddNew
   clear_ctrls
   Text1.SetFocus
   Command9.Caption = "&Grava"
   Exit Sub
End If
If Command9.Caption = "&Grava" Then
   grava_rec
   rst.Update
   Command9.Caption = "&Inclui"
   marca = rst.Bookmark
   rst.Requery
   rst.Bookmark = marca
   load_rec
   MsgBox "Inclusão gravada ! "
End If
Exit Sub
Private Sub grava_rec()
   'rst.Fields(0) = "" & Text1.Text
   rst.Fields(1) = "" & Text2.Text
   rst.Fields(2) = "" & Text3.Text
End Sub

-------------------------

Obrigado a todos.