Connecting a database table to a login form

[Lante]

I'm trying to connect a database with a login form to verify user as an existing one or a new one to sign up

Private Sub Command1_Click()
Adodc1.RecordSource = "select *from newcustomer where firstname='" + Text1.Text + "' and surname='" + Text2.Text + "' and customerid='" + Text3.Text + "' and phone='" + Text4.Text + "' and yearofbirth='" + Text5.Text + "' and emailaddress='" + Text6.Text + "' and username='" + Text7.Text + "' and password='" + Text8.Text + "' "
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox "INVALID USERNAME/PASSWORD"
Else
Form4.Show
End If
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub

customer login code

Option Explicit
Private HiddenPassword As String
Private UserName As String
Private Pressed(100) As String
Private ChrValues(100) As String
Private G As String, UserNameLength As String
Private B As Integer, PasswordLength As Integer
Private EnteredValues As String
Private Const UserNameValue = "Enter Your UserName!!!"
Private Const PasswordValue = "Enter Your Password!!!"
Private Sub cmdCancel_Click()
    'set the global var to false
    'to denote a failed login
    End
    'LoginSucceeded = False
    Me.Hide
End Sub

[rproffitt]

This has a huge security issue. It appears the password is in clear text maybe all the way down to the database. This is not how to teach login systems. This when I see it gets a failing grade.

More at https://www.geeksforgeeks.org/store-password-database/ "Storing plain text passwords in the database is a sin."

[rproffitt]

I'll add that in a current job I'm working on is in VB6 and the database connector is dead. I do have an ugly workaround but we opted to just create report files rather than continue with any database use in the now decades old app.

-> Let me restate this. The database connector in VB6 is dead. It's time to move on if you want the old ADO and other database connections.

[RobDownUnder]

Don't use the Data Control.
Here is an example (not using a Data Control) from vb-helper -
If you go to this link you can download the project
http://www.vb-helper.com/howto_ado_use_access_password.html

Private Sub cmdOpen_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

' Open the connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Me.txtDbName.Text & ";" & _
    "Jet OLEDB:Database Password=" & txtPassword.Text
conn.Open

' Get the data.
Set rs = conn.Execute("SELECT Title FROM Books ORDER BY " & _
    "Title")
lstTitles.Clear
Do While Not rs.EOF
    lstTitles.AddItem rs!Title
    rs.MoveNext
Loop

rs.Close
conn.Close

End Sub

Hope this helps,
Rob

[RobDownUnder]

I am noticing a few threads WRONGLY saying that VB6 Data Base (ADO) apps do not work in W10.
That is INCORRECT.
They run fine.
If you have been using Dependencies (eg Data Environment OR Data Control) unnecessarily you may have problems.
That is why I have avoided such dependencies for years.
If you use pure ADO code, then your database applications will run perfectly in W10 (mine all do, and they are all being used in W10)