file.vb
Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdreport_Click()
DataReport1.Show
End SubEnd Sub
Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdreport_Click()
DataReport1.Show
End SubEnd Sub