Sub SqlDataRead()
 
        Dim objBindingsource As New BindingSource
        Dim MySqlConn As New MySqlConnection
        Dim MySqlConnectionString As String = _
          "Server=10.100.201.70;Database=mysql;Uid=test;Pwd=els;"
        Dim MySqlcmd As New MySqlCommand
 
        MySqlConn.ConnectionString = MySqlConnectionString
        MySqlcmd.Connection = MySqlConn
        MySqlcmd.CommandText = "SELECT Id, Dateiname, Dateistatus FROM" & _
          "tblresponse"
        SqlDataset = New DataSet
        Dim SqlDataAdapter As New MySqlDataAdapter(MySqlcmd)
        SqlDataAdapter.Fill(SqlDataset)
        objBindingsource.DataSource = SqlDataset.Tables(0)
        Form1.DataGridView1.DataSource = objBindingsource
        Form1.DataGridView1.Columns(1).Width = 440
 
End Sub