Private Sub CmdOk_Click()
If TxtKode.Text = "a01" Then
TxtNama.Text = "pensil"
txtHarga.Text = "2500"
TxtSatuan.Text = "buah"
ElseIf TxtKode.Text = "a02" Then
TxtNama.Text = "buku"
txtHarga.Text = "25000"
TxtSatuan.Text = "kodi"
ElseIf TxtKode.Text = "a03" Then
TxtNama.Text = "pena"
txtHarga.Text = "25500"
TxtSatuan.Text = "lusin"
ElseIf TxtKode.Text = "a04" Then
TxtNama.Text = "rol"
txtHarga.Text = "3000"
TxtSatuan.Text = "buah"
ElseIf TxtKode.Text = "a05" Then
TxtNama.Text = "penghapus"
txtHarga.Text = "2000"
TxtSatuan.Text = "buah"
End If
End Sub

Private Sub CmdBersih_Click()
TxtKode.Text = ""
TxtNama.Text = ""
txtHarga.Text = ""
TxtSatuan.Text = ""
TxtKode.SetFocus
End Sub