CÓDIGO PARA FORMULÁRIO DE LOGIN VISUAL BASIC 2008 EXPRESS EDITION

Question

<object height="0" id="79c959ca-5968-8ca3-7aca-0bb10993829e" type="application/gas-events-cef" width="0"></object>

Boa tarde senhores.
A um Tempinho estou lutando com este código e não estou conseguindo resolver estes 3 erros que estara abaixo do código.

Imports MySql.Data.MySqlClient
Imports Siscom.ClsConexaoMySql
Imports System.Data

Public Class frmLogin
    Dim conn As New MySqlConnection
    Dim MyCommand As New MySqlCommand
    Dim MyAdapter As New MySqlDataAdapter
    Dim MyData As New DataTable
    Dim Sql As String

    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        Sql = "Select * From teste_siscom.tblusuario"
    End Sub

    Private Sub TimerLogin_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerLogin.Tick
        lblData.Text = DateAndTime.Now.ToLongDateString
        lblDataHora.Text = DateTime.Now.ToLongTimeString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelarLogin.Click
        Me.Close()
    End Sub

    Private Sub btnOkLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkLogin.Click
        Dim vNivel, vSenha, vNome As String
        If txtUsuarioLogin.Text = Nothing Then
            MsgBox("Digite o seu Nome de Usuário!!", vbOKOnly + MsgBoxStyle.Information, "Sistema de Automação Comercial - Aviso")
            txtUsuarioLogin.Focus()
            Exit Sub
        End If
        If txtSenhaLogin.Text = Nothing Then
            MsgBox("Digite a sua Senha!!", vbOKOnly + MsgBoxStyle.Information, "Sistema de Automação Comercial - Aviso")
            txtSenhaLogin.Focus()
            Exit Sub
        End If
        vNome = Chr(39) & txtUsuarioLogin.Text & Chr(39)
        vSenha = Chr(39) & txtSenhaLogin.Text & Chr(39)
        conn.Open("Select * tblusuario where usuario & vNome & And senha = & vSenha", conn, adOpenForwardOnly, adLockOptimistic, adCmdText)

        If conn.DataSource = 0 Then

            MsgBox("Usuário ou Senha Invalida", vbOKOnly = MsgBoxStyle.Information, "Sistema de Automação Comercial - Aviso")
            txtUsuarioLogin.Text = ""
            txtSenhaLogin.Text = ""
            txtUsuarioLogin.Focus()
            conn.Close()
            Exit Sub
        Else
            frmPrincipal.Show()
        End If
    End Sub
End Class

Desde ja agradeço.