Sintak untuk VB 0.6

Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
End Sub

Private Sub aktif()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
End Sub

Private Sub nonaktif()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub

Private Sub cmdbaru_Click()
Call aktif
Data1.Recordset.AddNew
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdbaru.Enabled = False
cmdhapus.Enabled = True
End Sub

Private Sub cmdbatal_Click()
Data1.Recordset.CancelUpdate
cmdbatal.Enabled = False
cmdsimpan.Enabled = False
cmdbaru.Enabled = True
cmdhapus.Enabled = False
Call nonaktif
End Sub

Private Sub cmdhapus_Click()
pesan = MsgBox("Yakin Hapus Data ini..?", vbCritical + vbYesNo, "Peringatan!")
If pesan = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdsimpan_Click()
Data1.Recordset!kodebarang = UCase(Text1.Text)
Data1.Recordset!NamaBarang = UCase(Text2.Text)
Data1.Recordset!Satuan = UCase(Text3.Text)
Data1.Recordset!HargaBarang = UCase(Text4.Text)
Data1.Refresh
cmdbatal.Enabled = False
cmdsimpan.Enabled = False
cmdbaru.Enabled = True
Call nonaktif
End Sub

Private Sub Form_Load()
Call nonaktif
End Sub