Create Open conn table in .Net

#Region " function show "
Private Function show_biasa()
Dim Cmdku As New SqlCommand
Conn.Open()
Cmdku.Connection = Conn

Try

Cmdku.CommandText = "SELECT * FROM wholesaler WHERE dealer_id='" & (CmbID.Text) & "';"
Cmdku.CommandType = CommandType.Text


Dim Adapter As New SqlDataAdapter(Cmdku)
Dim Dsku As New DataSet

Adapter.Fill(Dsku, "wholesaler")

dv = New DataView(Dsku.Tables("wholesaler"))

DataGrid1.DataSource = dv

Catch ex As Exception
'MsgBox(ex.Message)
Finally
Conn.Close()
Cmd.Connection = Nothing
End Try

End Function
#End Region

CREATE TABLE WholeSaler_Details (
Dealer_id nvarchar (50),
Name nvarchar (100),
address ntext ,
City nvarchar (50),
State nvarchar (50) ,
Zip_Code nvarchar (50),
Phone_no nvarchar (50));