Milton
1)use o addnew apenas uma vez na sua instrução
2) Vc tem que validar os campos que não podem aceitar nulo
na rotina antes de gravar
If txtPedido = "" Then
MsgBox "este campo não pode ser nulo"
txtPedido.SetFocus
Exit Sub
End If
If Trim(txtPedido4.Text) = "" Then
MsgBox "este campo não pode ser nulo "
txtPedido4.SetFocus
Exit Sub
End If
Tente acom essas mudanças