primero que nada soy un poco noob en esto pero en win aplication puedes usar esto en el boton ingresar
Dim connTemp As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=proyecto2.mdb")
Dim adpUsuarios As OleDbDataAdapter
Dim consulta As String
Dim dstUsuarios As DataSet
consulta = "Select * from usuarios Where login = '" + txtLogin.Text + "' and clave = '" + txtPass.Text + "'"
adpUsuarios = New OleDbDataAdapter(consulta, connTemp)
dstUsuarios = New DataSet
adpUsuarios.Fill(dstUsuarios, "usuarios")
If ((dstUsuarios.Tables("usuarios").Rows.Count = 0)) Then
MessageBox.Show("El usuario no existe", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
UsuarioActual = dstUsuarios.Tables("usuarios").Rows(0).Item("nombr e")
Me.DialogResult = Windows.Forms.DialogResult.Yes
End If
veces += 1
If veces > 2 Then
End
End If
luego te vas a la pantalla que se abre despues del del esta y pones este codigo osea en mi caso al menu y pones esto
Public Shared Sub main()
Application.EnableVisualStyles()
Dim pant As New frminicio
If pant.ShowDialog() = Windows.Forms.DialogResult.Yes Then
pant.Close()
Application.Run(New frmMenu)
End If
ya por ultimo vas a las propiedades desavilitas el macro de appl y pones de objeto inicial el "sub main" te postearia una imagen de lo ultimo pero no me dejan
gracias a didier chavaria por la ayuda con este proyecto
