Imports MySql.Data.MySqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cs As String = "Database=accounter;Data Source=" & TextBox1.Text & ";" _
         & "User Id=" & TextBox2.Text & ";" & "Password=" & TextBox3.Text

        Dim conn As New MySqlConnection(cs)
        If TextBox1.Text = String.Empty Or TextBox2.Text = String.Empty Or TextBox3.Text = String.Empty Then
            MsgBox("Nici o casuta nu poate fi goala.")
        Else
            Try
                conn.Open()
                Form2.Show()
                Me.Hide()

            Catch ex As MySqlException
                MsgBox("Eroare: " & ex.ToString())
            End Try
        End If
    End Sub
End Class