Perancangan sistem kasus pemerkosaan pada lapas 1 medan menggunakan vb.net2008

database ini saya buat dengan cara dan upaya saya.
jika tidak sebagus atau seperti yang di haruskan harap di maklumi.

desain from:

listing program:

Imports System.Data.OleDb

Public Class DATA_KORBAN

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DR As OleDbDataReader

    Public DS As New DataSet

    Dim SQL As String

    Public Sub OPENDB()

        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB5\DATABASE13.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub RecordKORBAN()

        ADP = New OleDbDataAdapter("SELECT * FROM KORBAN", DB)

        DS = New DataSet

        ADP.Fill(DS, "KORBAN")

        DataGridView1.DataSource = DS.Tables("KORBAN")

    End Sub

    Sub butoonbaru()

        BARU.Enabled = True

        SIMPAN.Enabled = False

        EDIT.Enabled = False

        HAPUS.Enabled = False

        BATAL.Enabled = False

        KELUAR.Enabled = True

    End Sub

    Sub butoonedit()

        BARU.Enabled = False

        SIMPAN.Enabled = False

        EDIT.Enabled = True

        HAPUS.Enabled = True

        BATAL.Enabled = True

        KELUAR.Enabled = False

    End Sub

    Sub butoonsimpan()

        BARU.Enabled = False

        SIMPAN.Enabled = True

        EDIT.Enabled = False

        HAPUS.Enabled = False

        BATAL.Enabled = True

        KELUAR.Enabled = False

    End Sub

    Sub hapustext()

        NAMA.Text = ""

        ALAMAT.Text = ""

        J_KELAMIN.Text = ""

        UMUR.Text = ""

        SUKU.Text = ""

        AGAMA.Text = ""

        STATUS.Text = ""

        Call butoonbaru()

    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click

        Me.Close()

    End Sub

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

        Call OPENDB()

        Call hapustext()

        Call RecordKORBAN()

        Call butoonbaru()

        J_KELAMIN.Items.Add("JENIS KELAMIN")

        AGAMA.Items.Add("AGAMA")

    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click

        Call hapustext()

        NAMA.Focus()

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click

        SQL = "DELETE FROM KORBAN Where NAMA='" & NAMA.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call RecordKORBAN()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM KORBAN Where NAMA='" & NAMA.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                ALAMAT.Text = DR.Item(2)

                UMUR.Text = DR.Item(4)

                SUKU.Text = DR.Item(5)

                STATUS.Text = DR.Item(7)

                Call butoonedit()

                MsgBox("DATA DITEMUKAN!")

            Else

                xkode = NAMA.Text

                Call hapustext()

                NAMA.Text = xkode

                Call butoonsimpan()

            End If

            ALAMAT.Focus()

        End If

    End Sub

    Private Sub BATAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BATAL.Click

        Call hapustext()

        NAMA.Focus()

    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click

        SQL = "UPDATE KORBAN SET ALAMAT='" & ALAMAT.Text & "'," & _

                                "JENIS_KELAMIN='" & J_KELAMIN.Text & "'," & _

                                "UMUR='" & UMUR.Text & "'," & _

                                "SUKU='" & SUKU.Text & "'," & _

                                "AGAMA='" & AGAMA.Text & "'," & _

                                "STATUS='" & STATUS.Text & "' " & _

                                "Where NAMA='" & NAMA.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call RecordKORBAN()

    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        SQL = "INSERT INTO KORBAN (NAMA, ALAMAT, JENIS_KELAMIN, UMUR, SUKU, AGAMA, STATUS)" & _

                        "Values ('" & NAMA.Text & "','" & _

                                        ALAMAT.Text & "','" & _

                                        J_KELAMIN.Text & "','" & _

                                        UMUR.Text & "','" & _

                                        SUKU.Text & "','" & _

                                        AGAMA.Text & "','" & _

                                        STATUS.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call RecordKORBAN()

    End Sub

    Private Sub J_KELAMIN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J_KELAMIN.SelectedIndexChanged

        If J_KELAMIN.Text = "JENIS KELAMIN" Then

            J_KELAMIN.Items.Add("LAKI-LAKI")

            J_KELAMIN.Items.Add("PEREMPUAN")

            J_KELAMIN.Items.Add("WARIA")

        End If

    End Sub

    Private Sub AGAMA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AGAMA.SelectedIndexChanged

        If AGAMA.Text = "AGAMA" Then

            AGAMA.Items.Add("ISLAM")

            AGAMA.Items.Add("KRISTEN")

            AGAMA.Items.Add("BUDHA")

            AGAMA.Items.Add("HINDU")

            AGAMA.Items.Add("KONGHUCHU")

        End If

    End Sub

End Class