Anonymous

Public Sub Parse()
    Select Case sTemp(0)
        Case "NEWACCT"
            MsgBox "Boo"
        Case "LOGIN"
            cmBO.CommandText = "SELECT COUNT(0) FROM Users WHERE Login_Username = ?"
            cmBO.Parameters.Append cmBO.CreateParameter("@Username", adVarChar, 50, sTemp(1))
            rsBO.Close                              ' Close Recordset
            Set rsBO = cmdBO.Execute()              ' Execute Command
            ' Not needed anymore...
            ' rsBO.Open sSQL, cnBO, 1, 3                      ' Open and Query
            
            If rsBO.RecordCount > 0 Then                    ' More than 0?
                rsBO.MoveFirst                              ' Move to Record 1

                If sTemp(1) <> rsBO("Login_Username").Value Then
                    MsgBox "User " & sTemp(1) & " exists!"
                Else
                    MsgBox "Nothing found!"
                End If
            Else
                MsgBox "No Records Exist", vbInformation, "No Records"
            End If
    End Select
End Sub