cara benerinya gmana om, pusing gak nemu2 penyebabnya
file project lengkap : http://www*tusfiles*net/szl28ji0sne6

source code

Imports System.Data.SqlClient

Public Class Form1

 Sub Kosongkan()

 TextBox1.Clear()

 TextBox2.Clear()

 TextBox3.Clear()

 ComboBox1.Text = ""

 TextBox1.Focus()

 End Sub

 Sub DataBaru()

 TextBox2.Clear()

 TextBox3.Clear()

 ComboBox1.Text = ""

 TextBox2.Focus()

 End Sub



 Sub TampilGrid()

 Call Koneksi()

 DA = New SqlDataAdapter("select * from TBLUSER", CONN)

 DS = New DataSet

 DA.Fill(DS)

 DGV.DataSource = DS.Tables(0)

 DGV.ReadOnly = True

 End Sub



 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 Call Koneksi()

 Call TampilGrid()

 End Sub



 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

 TextBox1.MaxLength = 5

 If e.KeyChar = Chr(13) Then

 Call Koneksi()

 CMD = New SqlCommand("select * from TBlUSER where KODE_USER='" & TextBox1.Text & "'", CONN)

 DR = CMD.ExecuteReader

 DR.Read()

 If DR.HasRows Then

 TextBox2.Text = DR.Item("NAMA_USER")

 TextBox3.Text = DR.Item("PWD_USER")

 ComboBox1.Text = DR.Item("STATUS_USER")

 TextBox2.Focus()

 Else

 Call DataBaru()

 End If

 End If

 End Sub

 Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

 TextBox2.MaxLength = 30

 If e.KeyChar = Chr(13) Then

 ComboBox1.Focus()

 End If

 End Sub

 Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

 TextBox3.MaxLength = 10

 If e.KeyChar = Chr(13) Then

 TextBox3.Focus()

 End If

 End Sub

 Private Sub ComboBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress

 If e.KeyChar = Chr(13) Then

 Button1.Focus()

 End If

 End Sub





 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged



 End Sub



 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then

 MsgBox("data belum lengkap")

 Exit Sub

 Else

 Call Koneksi()

 CMD = New SqlCommand("select * from TBLUSER where KODE_USER='" & TextBox1.Text & "'", CONN)

 DR = CMD.ExecuteReader

 DR.Read()

 If Not DR.HasRows Then

 Call Koneksi()

 Dim add As String = "Insert into TBLUSER values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "'," & ComboBox1.Text & "')"

 CMD = New SqlCommand(add, CONN)

 CMD.ExecuteNonQuery()



 Else

 Call Koneksi()

 Dim edit As String = "update TBLUSER set NAMA_USER='" & TextBox2.Text & "',PWD_USER='" & TextBox3.Text & "',STATUS_USER='" & ComboBox1.Text & "' where KODE_USER='" & TextBox1.Text & "'"

 CMD = New SqlCommand(edit, CONN)

 CMD.ExecuteNonQuery()

 End If

 Call Kosongkan()

 Call TampilGrid()

 End If

 End Sub



 

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

 Me.Close()



 End Sub

End Class