Como hago esto en VB.Net

[juanta]

probe ahora con mysqlclient y me sigue dando el mismo error:

Código:

        Dim cnsql As MySqlConnection
        Dim cmSQL As MySqlCommand
        Dim drSQL As MySqlDataReader 'SqlDataReader
        Dim strSQL As String

        strSQL = "Select * from users where id_user='admin'"

        cnsql.Open()

        cmSQL = New MySqlCommand(strSQL, cnsql) 'New SqlCommand(strSQL, cnSQL)
        drSQL = cmSQL.ExecuteReader 'cmSQL.ExecuteReader()

        If drSQL.Read() Then
            Label1.Text = drSQL.Item("password").ToString()
        End If
        Me.DataGrid1.DataSource = drSQL
        drSQL.Close()
        cnsql.Close()
        cmSQL.Dispose()
        cnsql.Dispose()

Ya estoy que exploto por este problema. si puedes ayudarme te lo agradeceria.