Program Penjualan

assalammualaikum gan,,
saya dapet aspirasi setelah saya menunggu warung usaha ortu saya,,saya berkinginan membuatkan program penjualan,,wlaupn sederhana tp mudah2an berguna,,dan bagi yg bsa memperbagus bagi2 yh ilmu.a ^_^
langsung ajh saya kasih gambaran dan coding.n,,disini cuma ad 2 from yg pertama untuk barang dsna kita mnginput data2 /barng2 yg ingin kita jual dah d from penjualan untuk barang apa yg d sudah d jual,,

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode = Text1.Text
Adodc1.Recordset!nama_barang = Text2.Text
Adodc1.Recordset!harga_barang = Text3.Text
Adodc1.Recordset!untung = Text4.Text

Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub


Private Sub Command2_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Refresh
End Sub


dan ini from yg ke 2 dan gambarnya

nie coding.a gan
Private Sub Command1_Click()
Adodc1.Recordset.Find "nama_barang='" + Text5.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
Text1.Text = Adodc1.Recordset!kode
Text2.Text = Adodc1.Recordset!nama_barang
Text3.Text = Adodc1.Recordset!harga_barang
Text4.Text = Adodc1.Recordset!untung
Else
MsgBox "Maaf, Data Tidak Ditemukan!"
Text5 = ""
End If
End Sub

Private Sub Command2_Click()
Adodc2.Recordset.AddNew
Adodc2.Recordset!kode = Text1.Text
Adodc2.Recordset!nama_barang = Text2.Text
Adodc2.Recordset!harga_barang = Text3.Text
Adodc2.Recordset!untung = Text4.Text

Adodc2.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

cukup sekian gan yg bsa w kasih ke kalian,mudah2an bermanfaat bwt yg memerlukan program ini,,
wassalammualaikum wr.wb ^_^