what's wrong with SQL
 

Private Sub cmdLogin_Click() Dim comSave As New ADODB.Command Dim sqlAdd As String Set RS = New ADODB.Recordset With comSave .ActiveConnection = ConnDB .CommandType = adCmdText End With ConnDB.BeginTrans sqlAdd = "INSERT INTO UserName...