Cadena De Conexion My Sql Y Visual 2010

Public Class Susuario
    Public idUs As Integer
    Function Limpia()
        TextBox_pass.Text = ""
        TextBox_usuario.Text = ""
        MaskedTextBox_ap.Text = ""        MaskedTextBox_nom.Text = ""
    End Function
    Function cargaGridUsu()
        Dim cons As String = "SELECT usuario.us_user AS Usuario, usuario.us_pass AS Clave, usuario.us_id AS ID, usuario.us_nom AS Nombre,usuario.us_apellido AS Apellido, usuario.us_activo AS Activo, tipo_usuario.tu_nom as Tipo FROM usuario INNER JOIN tipo_usuario ON (usuario.tu_id = tipo_usuario.tu_id)"
        CargaGrid(cons,DataGridView_usu)
        With DataGridView_usu
            For i = 0 To .Rows.Count - 1
                If .Rows(i).Cells(5).Value = "T" Then
                    .Rows(i).Cells(5).Value = "Activo"                End If
                If .Rows(i).Cells(5).Value = "F" Then
                    .Rows(i).Cells(5).Value = "No activo"
                End If
            Next
        End With    End Function
    Private Sub Susuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
        cargaGridUsu()
        Dim cons As String        Dim combonombre As String = "tu_nom"
        Dim comboid As String = "tu_id"
        cons = "SELECT tu_nom,tu_id FROM tipo_usuario WHERE tu_activo = 'T'"
        CargaCombo(cons, ComboBox_tipo, combonombre, comboid)
    End Sub 
    Private Sub Button_guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button_guardar.Click
        Dim cons As String
        If RadioButton_nueva.Checked Then            cons = "INSERT INTO usuario(us_nom,us_apellido,us_user,us_pass,us_activo,tu_id)"
            cons = cons & " VALUES('" & MaskedTextBox_nom.Text & "','" &MaskedTextBox_ap.Text &"','" & TextBox_usuario.Text & "','" & TextBox_pass.Text & "','" & IIf(CheckBox_activo.Checked =True, "T", "F") & "'," &...