menampilkan data pd datagridview

ya udah tinggal dibuat pada saat klik pada menustrip panggil prosedur untuk menampilkan datanya, misal nampilin ke datagridview...

Code:

Imports System.Data
Imports System.Data.SqlClient

Private Sub ambildata()

Dim Connection As New SqlConnection( _
  "server=serverAddress;uid=username;pwd=password;database=database;")

Dim Adapter As New SqlDataAdapter("SELECT * FROM namatable WHERE namafield = '" & kriteria & "'", Connection)

Dim SourceDataSet As New DataSet()
Adapter.Fill(SourceDataSet)

GridControl1.DataSource = SourceDataSet.Tables(0)

End sub