Record not display in datagridview

Public Class Form6
 
    Dim da As Object
 
    Public Property ServerName() As String
    Public Property DatabaseName() As String
    Public Property Login() As String
    Public Property Password() As String
 
    Private Function SqlConn(Optional ByVal timeout As Integer = 0) As String
                Dim sqlBuilder As New SqlClient.SqlConnectionStringBuilder()
 
                sqlBuilder.DataSource = "Softlinks-PC"
        sqlBuilder.InitialCatalog = "RMS"
        sqlBuilder.IntegratedSecurity = False
        sqlBuilder.MultipleActiveResultSets = True 'to avoid exception if a query uses anothe rquery internal

        sqlBuilder.UserID = "Softlinks-PC\Softlinks"
        sqlBuilder.Password = ""
        If timeout > 0 Then
            sqlBuilder.ConnectTimeout = timeout
        End If
 
        Return sqlBuilder.ToString
    End Function
 
  
    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call SqlConn()
        Dim sql As String
        Dim ds = New DataSet
        Dim tables = ds.Tables
 
        Sql = "SELECT * FROM Productitem"
        da.Fill(ds, "Productcode")        
        Dim view As New DataView(ds.tables(0))
        DataGridView1.DataSource = view
    End Sub
 
End Class