my code

If sconnection.State = ConnectionState.Closed Then
                sconnection.ConnectionString = "server=***********; database=*********; user id=*************; password=*************"
                sconnection.Open()
            End If

            Dim sqlquery As String = "SELECT * FROM ************"
            Dim sqladapter As New MySqlDataAdapter
            Dim sqlcommand As New MySqlCommand
            Dim table As New DataTable
            Dim i As Integer

            With sqlcommand
                .CommandText = sqlquery
                .Connection = sconnection
            End With

            With sqladapter
                .SelectCommand = sqlcommand
                .Fill(table)
            End With