Dim cmd As New Odbc.OdbcCommand
    server1 = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=db_checkvoucher;User=root;Password=;Option=3;"

    client1 = "Driver={MySQL ODBC 5.1 Driver};server=192.168.1.2;" _
        & "User=root;Password=;" _
        & "database=db_checkvoucher;"

    If Form1.TextBox1.Text = "1" Then
        con.ConnectionString = client1
    Else
        con.ConnectionString = server1
    End If