DATABASE PADA VB LISTING PROGRAM Private Sub Command1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset!NAMA = Text1.Text Adodc1.Recordset!NPM = Text2.Text Adodc1.Recordset!KELAS = Text3.Text DataGrid1.Refresh If Text1 = "" Or Text2 = "" Or Text3 = "" Then MsgBox "DATA HARUS DILENGKAPI" End If End Sub Private Sub Command2_Click() Adodc1.Recordset.Update Adodc1.Recordset!NAMA = Text1.Text Adodc1.Recordset!NPM = Text2.Text Adodc1.Recordset!KELAS = Text3.Text DataGrid1.Refresh End Sub Private Sub Command3_Click() If Adodc1.Recordset.BOF Then MsgBox "DATA SUDAH HABIS" Else Adodc1.Recordset.Delete End If End Sub Private Sub Command4_Click() Text1.Text = Clear Text2.Text = Clear Text3.Text = Clear End Sub Private Sub Command5_Click() End End Sub LOGIKA PROGRAM Pada laporan ini saya telah membuat program pada VB untuk menghubungkan V