Dim oConn As Object
        oConn = New Odbc.OdbcConnection
 
        oConn.Open("DRIVER={MySQL ODBC 8.0 Driver};" & _
            "SERVER=192.168.12.2;" & _
            "DATABASE=baza;" & _
            "UID=root;" & _
            "PASSWORD=dozentos12$;" & _
            "PORT:3306;" & _
            "charset=cp1251;" & _
            "Option=3;")
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Conn As New MySqlConnection
        '  Conn.ConnectionString = "Data Source =192.168.12.2,3306; Initial Catalog=111; User ID=root; Password=1;"
        SqlConStr = New MySqlConnection("server=192.168.12.2; User Id=root; password=dozentos12$; Persist Security Info=True; database='baza'")

        Conn.Open()



    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        Dim Conn As New MySqlConnection
      
        SqlConStr = New MySqlConnection("Server=192.168.12.2; Database=baza; Uid=root; Pwd=dozentos12$;")

        Conn.Open()
    End Sub