I can't write to my Data base

my code vb 6.0 :


Private Sub cmd_add_Click() ' add new user i get a runtime error here
dba_User.Recordset.AddNew ' and it wont write to the dba file
End Sub

Private Sub cmd_delete_Click()
dba_User.Recordset.Delete
End Sub

Private Sub cmd_Last_Click()
On Error GoTo errrun
dba_User.Recordset.MovePrevious
Exit Sub
errrun:
Resume Next
End Sub

Private Sub cmd_Next_Click()
On Error GoTo errrun
dba_User.Recordset.MoveNext
Exit Sub
errrun:
Resume Next
End Sub

Private Sub cmd_UpDate_Click()
dba_User.Recordset.Update
End Sub