Susah ya.. Kalo Ngak yang ini aja.. baru kita bahas...

'Listing Program
Dim rstambah As New ADODB.Recordset
Dim rssimpan As New ADODB.Recordset
Dim Setuju As String
Private Sub Form_Load()
Call Tengah
cbostatus.AddItem "SuperAdmin"
cbostatus.AddItem "Admin"
cbostatus.AddItem "Kasir"
txtuser.BackColor = &HFFC0C0
Call IsiGrid
End Sub

Private Sub CmdSimpan_Click()
If txtuser.Text = "" Then
MsgBox "UserName masih kosong", vbInformation, "Perhatian"
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text = "" Then
MsgBox "Password masih kosong", vbInformation, "Perhatian"
txtpassword.SetFocus
txtpassword.BackColor = &HFFC0C0
ElseIf cbostatus.Text = "" Then
MsgBox "Status masih kosong", vbInformation, "Perhatian"
cbostatus.SetFocus
cbostatus.BackColor = &HFFC0C0
Else
kerjakan = "select * from Operator where NamaUser='" & txtuser.Text & "'"
Set rstambah = New ADODB.Recordset
rstambah.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
If rstambah.RecordCount = 1 Then
MsgBox "User Name Tersebut Sudah Ada !. Ketikkan yang Baru.", vbCritical, "Perhatian"
txtuser.Text = ""
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
ElseIf txtpassword.Text <> txtulang.Text Then
MsgBox "Konfirmasi Password Anda Tidak Sama !", vbCritical, "Perhatian"
txtulang.BackColor = &HFFC0C0
txtpassword.SetFocus
Else
Setuju = MsgBox("Data akan disimpan ?", vbInformation + vbOKCancel, "Simpan")
If Setuju = vbOK Then
If rstambah.EOF Then
kerjakan = "insert into Operator (NamaUser,KodeUser,Status) values ('" & txtuser & _
"','" & txtpassword & _
"','" & cbostatus & "')"
Set rssimpan = New ADODB.Recordset
rssimpan.Open kerjakan, KoneksiDatabase, adOpenKeyset, adLockOptimistic
Call IsiGrid
Call bersih
txtuser.SetFocus
txtuser.BackColor = &HFFC0C0
End If
End If
End If
End If
End Sub