modul pada vb.net

Berikut saya sertakan Modul, Modul yang dapat digunakan untuk membangun aplikasi dengan VB .net dengan mudah
sebagai contoh untuk menampilkan data di datagridview anda cukup membuat sub rutin perintah sebagai berikut :
Di awal script cukup tambahkan
Imports latihan.ModulKoneksiDatabase
Sub bacadatabase()
Dim perintahsql As String
Dim datatabel As New Data.DataSet
perintahsql = “select * from barang”
datatabel = SqlEksekusi(perintahsql)
DataGridView1.DataSource = datatabel
DataGridView1.DataMember = perintahsql
End Sub
Perintah Untuk menambah data cukup dengan
Dim sql As String
Dim tabel As New Data.DataSet
sql = “insert into barang values (‘” & BoxKode.Text & “‘,’” & TextBox2.Text & “‘)”
SqlEksekusi(sql)
Perintah Untuk delete data
Dim sql As String
Dim tabel As New Data.DataSet
sql = “delete from barang where kodebarang like ‘” & BoxKode.Text & “‘”
SqlEksekusi(sql)
Perintah untuk update
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sql As String
Dim tabel As New Data.DataSet
sql = “update barang set namabarang=’” & TextBox2.Text & “‘ where kodebarang like ‘” & BoxKode.Text & “‘”
SqlEksekusi(sql)
Perintah untuk Mencari Data
Dim perintahsql As String
Dim datatabel As New Data.DataSet
perintahsql = “select * from barang where kodebarang like ‘” & BoxKode.Text & “‘” & _
” or namabarang like ‘%” & TextBox2.Text & “%’”
datatabel = SqlEksekusi(perintahsql)
DataGridView1.DataSource = datatabel
DataGridView1.DataMember = perintahsql