¿Cómo inician sesión los usuarios de vb en la interfaz? ¿Cuál es el código de inicio de sesión de usuario?

Código fuente del programa de inicio de sesión VB\x0d\\x0d\Puedes crear un módulo como este e ingresar lo siguiente\x0d\Public conn como ADODB.Connection\x0d\Sub main()\x0d\ Set conn = New ADODB.Connection\x0d\ conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _\x0d\ + "ID de usuario=sa;contraseña=sa;Catálogo inicial=Nombre de su base de datos;Fuente de datos =127.0.0.1"\x0d\ conn.Open\x0d\from1.Show 'Login interface\x0d\End Sub\x0d\\x0d\ Luego escriba el siguiente código en "Aceptar" en la interfaz de inicio de sesión:\x0d\Private Sub Command1_Click()\x0d\ If id.Text = "" Then\x0d\ MsgBox "¡El nombre de usuario no puede estar vacío!", vbOKOnly + vbInformation, "Recordatorio amistoso"\x0d\ id.SetFocus\x0d\ Exit Sub\x0d\ End If \x0d\ If contraseña.Text = "" Then\x0d\ MsgBox "¡La contraseña no puede estar vacía!", vbOKOnly + vbInformation, "Recordatorio amistoso"\x0d\ contraseña.SetFocus\x0d\ Exit Sub\x0d\ End If\x0d \ \x0d\ Dim strSQl As String\x0d\ strSQl = "seleccione * de Usuarios donde nombre_usuario='" & Trim$(id.Text) & "' and contraseña='" & Trim$(contraseña.Texto) & "' " \x0d\ \x0d\ Dim str como nuevo ADODB.Recordset\x0d\ Set str = Nuevo ADODB.Recordset\x0d\ str.CursorLocation = adUseClient\x0d\ str.Open strSQl, conn, adOpenStatic, adLockReadOnly\x0d\ \x0d \ Con str\x0d\ Si .State = adStateOpen Entonces .Close\x0d\ .Abrir strSQl\x0d\ Si .EOF Entonces\x0d\ Try_times = Try_times + 1\x0d\ If Try_times >= 3 Then\x0d\ MsgBox "Tú Tú He intentado ingresar al sistema tres veces sin éxito. El sistema se apagará automáticamente.", vbOKOnly + vbCritical, "Warning"\x0d\ Unload Me\x0d\ Else\x0d\ MsgBox "Lo siento.

, ¡el nombre de usuario no existe o la contraseña es incorrecta! ", vbOKOnly + vbQuestion, "Advertencia"\x0d\ id.SetFocus\x0d\ id.Text = ""\x0d\ contraseña.Text = ""\x0d\ End If\x0d\ Else\x0d\ \x0d\ Descargarme \x0d\ \x0d\ Form2.Show 'Otra interfaz para iniciar sesión\x0d\ \x0d\ End If\x0d\ End With\x0d\\x0d\End Sub