نكاتی در مورد برنامه نويسي در Visual Basic

Private Sub CmdNew_Click()
 Adodc1.Recordset.AddNew
End Sub
Private Sub CmdNew_Click()
 CommonDialog1.Filter = "(*.JPG)|*.JPG"
  If CommonDialog1.Filename <> "" Then
   Image1.LoadPicture = (CDMain.Filename)
  End If
End Sub
 
Private Sub CmdSave_Click()
 Call CmdOpen
 Adodc1.Recordset.Update
 Adodc1.Refresh
End Sub