Sub SqlDataRead()
 
        Dim MySqlConn As New MySqlConnection
        MySqlConn.ConnectionString = _
          "Server=10.100.201.70;Database=mysql;Uid=test;Pwd=test;"
        Dim MySqlcmd As New MySqlCommand
        MySqlcmd.Connection = MySqlConn
        Dim MySqlcmdstring As String = "SELECT Id, Dateiname, Dateistatus FROM" & _
          "tblresponse"
        MySqlcmd.CommandText = MySqlcmdstring
        SqlDataset = New DataSet
        Dim SqlDataAdapter As New MySqlDataAdapter(MySqlcmd)
        SqlDataAdapter.Fill(SqlDataset)
        Form1.ListView1.Items.Clear()
        For Each Row As DataRow In SqlDataset.Tables(0).Rows
            Form1.ListView1.Items.Add(New ListViewItem(New String() {Row("Id"), _
               Row("Dateiname"), Row("Dateistatus")}))
        Next
 
    End Sub