Sub btnEnter_Click(s as object, e as EventArgs)
    If Page.IsValid then
	Dim objConn 	As oleDbConnection
	Dim cmdInsert 	As oleDbCommand
	Dim strSQL 		As String
	Dim strConnect 	As String
	
 '--ADD NEW RECORD---
	
	 strconnect = ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/inetpub/wwwroot/fpstudents/team1/iuser/WEBSITEDBASE.mdb;")
	 objConn = New OleDbConnection( strConnect )
	 objConn.Open()

' If this userid already exists then the user cannot be added.  The PK is userid & the user makes it up.
 	 Try
	 	strSQL = "SELECT Count(*) FROM UserTable WHERE UserID = '" & UserID.text & "'"
	 	cmdInsert = New OleDbCommand(strSQL, objConn)
	 	If cmdInsert.ExecuteScalar() <> 0 Then
	 		addMessage.text = "Duplicate Record. Not Added"
	 		objConn.Close()
	 	Else
	 		strSQL = "Insert into UserTable(UserID, PWord, Rights, TroopNo, UserFirstName, UserLastName, UserPhone, UserEmail) values ( @UserID, @PWord, @Rights, @TroopNo, @UserFirstName, @UserLastName, @UserPhone, @UserEmail)"
			cmdInsert = New OleDBCommand( strSQL, objConn )
			cmdInsert.Parameters.Add( "@UserID", UserID.text )
			cmdInsert.Parameters.Add( "@PWord", PWord.text )
			cmdInsert.Parameters.Add( "@Rights", Rights.SelectedItem.value)
			cmdInsert.Parameters.Add( "@TroopNo", TroopNo.text )	
			cmdInsert.Parameters.Add( "@UserFirstName", FName.text )
			cmdInsert.Parameters.Add( "@UserLastName", LName.text )
			cmdInsert.Parameters.Add( "@UserPhone", Phone.text )
			cmdInsert.Parameters.Add( "@UserEmail", Email.text )
			
     			cmdInsert.ExecuteNonQuery()
      			objConn.Close()
			Response.redirect("AdminConfirmation.ASPX")	
		end if
	Catch
		addMessage.text = "Update problem. Record not added."
	End Try
    End if
End Sub