Pemrograman SQL dan VB

Assalamualaikum Wr.Wb
Pertama saya membuat program melaui SQL server, setelah buka SQL maka di connect terlebih dahulu setelah itu membuat table baru dengan format:

Lalu isikan kolom diatas, dan contohnya seperti berikut:

Setelah selesai membuat di SQL lalu saya buka Virtual Basic dan membuat form untuk medesign, lalu pilih data-authron lalu next
Selanjutnya drag satu persatu seperti Nama, Nim, Alamat, Tgl lahir, Jurusan, dan SPP tetap maka design seperti di bawah ini:

Selanjutnya saya isikan coding pada masing-masing button dan codingnya seperti berikut:

Public Class Form1

Private Sub HariBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HariBindingNavigatorSaveItem.Click
Me.Validate()
Me.HariBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.HariDataSet)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘HariDataSet.hari’ table. You can move, or remove it, as needed.
Me.HariTableAdapter.Fill(Me.HariDataSet.hari)

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Me.HariBindingSource.AddNew()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Me.Validate()
Me.HariBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.HariDataSet)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.HariBindingSource.MoveNext()
End Sub

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

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.HariBindingSource.MoveLast()
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Me.HariBindingSource.RemoveCurrent()
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Close()
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If (HariBindingSource.Find(“nama”, TextBox1.Text)) > -1 Then
MsgBox(“Data tersedia “)
Else
MsgBox(“Data tidak tersedia”)
End If
End Sub
End Class

Setelah selesai mengisikan coding pada button maka langkah selanjutnya menjalankan program, saya Run dan hasilnya seperti berikut:

Lalu jalankan button tambah dan hasilnya seperti di bawah ini:

Dan button cari, sebagai contoh hariman dan hasilnya seperti berikut:

Sebagai contoh 2 nama hariman dan aji,kalo button lanjut maka tertuju pada nama aji, pertama menuju ke hariman, dan terakhir kembali ke aji.

Sedangkan button hapus maka semua akan terhapus dan hasilnya seperti berikut :

Cukup sekian tugas yang saya buat apabila ada kekurangan saya mohon maaf, terima kasih .