search record on combobox selection and display it in datagridview

Public Class Form5

Dim cn As New SqlConnection("Data Source=.\INSTANCE;initial catalog=record;user=sa;password=gariahat")
Dim da As New SqlDataAdapter
Dim cmd As New SqlCommand
'Dim dr As New SqlDataReader
Dim dt1 As DataTable
Dim ds As New DataSet
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'RecordDataSet.fullsort' table. You can move, or remove it, as needed.
Me.FullsortTableAdapter.Fill(Me.RecordDataSet.fullsort)
'TODO: This line of code loads data into the 'RecordDataSet.finalsort' table. You can move, or remove it, as needed.
' Me.FinalsortTableAdapter.Fill(Me.RecordDataSet.finalsort)
'datasearch()


End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub




Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Dim cn As New SqlConnection("Data Source=.\INSTANCE;initial catalog=record;user=sa;password=gariahat")
cn.Open()
Dim da As New SqlDataAdapter("Select * from fullsort where name='" & ComboBox1.SelectedText & "'", cn)
Dim ds As New DataSet()
dt1 = New DataTable
da.Fill(dt1)
FullsortDataGridView.DataSource = dt1

FullsortDataGridView.Refresh()
cn.Close()

End Sub