mas bien tienes q cambiar todo porque tienes que hacer la conexion con my sql y luego sacar los datos etc t voy a dejar un ejemplo en vb
Código vb:
Ver originalPublic sAppPath As String = Application.StartupPath.ToString
Public sBaseDatos As String = sAppPath & "\doggyp.mdb"
Public sConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBaseDatos
la parte que esta en public esos estan en un modulo
y en el boton pones esto
If Me.TextBox2.Text <> "" And Me.TextBox1.Text <> "" Then
Dim cn As New OleDbConnection(sConexion)
Dim estatus As Integer
Dim forma As New MenuDP
' Permitir varios intentos
veces = veces + 1
'Comenzamos una transacción
Try
cn.Open()
' evitamos la inyección de código reemplazando las comillas simples
' por otro carácter
Dim sql As String = "Select estatus From Usuarios Where " & _
" pass = '" & Trim(Replace(Me.TextBox2.Text, "'", "k")) & _
"' And user = '" & Trim(Replace(Me.TextBox1.Text, "'", "k")) & "'"
'creamos un comando
Dim cmd As New OleDbCommand(sql, cn)
'leemos el valor y lo convertimos a entero
estatus = CInt(cmd.ExecuteScalar().ToString)
Catch ex As Exception
'mostramos el error
If Err.Number = 91 Then
MessageBox.Show("No se encontro registro ")
Else
MessageBox.Show("error " & Err.Number.ToString & vbCrLf & ex.Message)
End If
Finally
'cerramos la conexion solo si esta abierta
If (cn.State And ConnectionState.Open) <> 0 Then
cn.Close()
End If
End Try
If estatus = 1 Then
forma.Show()
forma.Button5.Top = 128
forma.Button5.Left = 658
End If
'Hide()
Else
MessageBox.Show("Ingresa tus datos completos", "Faltan Datos", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
' todavía puedes hacerlo de esta forma
End If
la parte donde esta la condicion de estatus es para abrir un nuevo fomulario