Public rsSQLKran As New ADODB.Recordset
    Public SQLstr() As String
    Public countKran As Integer
    Public rsSQPlayList As New ADODB.Recordset
    Public connSQL As New ADODB.Connection

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       
        ConnectMySQL()
        Dim SQLstrPlayList As String
        Dim i As Integer
        SQLstrPlayList = "SELECT * FROM  playlist"
        rsSQLKran.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rsSQPlayList.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        rsSQPlayList.Open(SQLstrPlayList, connSQL, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly, 1)
        rsSQPlayList.MoveFirst()
        i = 0
        If rsSQPlayList.EOF = False Then
            Do Until rsSQPlayList.EOF
                ComboBox1.Items.Add(rsSQPlayList.Fields("NamePlayList").Value.ToString)
                'MsgBox(rsSQPlayList.Fields("SQLstr").Value.ToString)
                SQLstr(i) = rsSQPlayList.Fields("SQLstr").Value.ToString
                i = i + 1
                rsSQPlayList.MoveNext()
            Loop
        End If
        rsSQPlayList.MoveFirst()
        ComboBox1.SelectedIndex = 0
End Sub

SQLstr(i) = val.ToString