Record not displayed in datagridview1

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
        ' Initialize the connection string builder for the 
        ' underlying provider. 
        Dim sqlBuilder As New SqlClient.SqlConnectionStringBuilder()

        ' Set the properties for the data source. 
        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") 'Change items to your database name 
        Dim view As New DataView(tables(0))
        DataGridView1.DataSource = view
    End Sub

End Class