Imports System.Data.OleDb
Public Class Form1
Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=student.mdb"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlString As String = " SELECT * FROM [students] "
Using da As New OleDbDataAdapter(sqlString, connString)
Using dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
End Using
End Using
End Sub
Private Sub DataGridView1_SelectionChanged(sender As Object, e As System.EventArgs) Handles DataGridView1.SelectionChanged
If Me.DataGridView1.SelectedRows.Count > 0 Then
Dim sqlString As String = " SELECT * FROM [students] WHERE [stdid]=" & Me.DataGridView1.Item(0, Me.DataGridView1.SelectedRows(0).Index).Value
Using da As New OleDbDataAdapter(sqlString, connString)
Using dt As New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
End Using
End Using
End If
End Sub
End Class