哪位高手帮小弟我看看代码错哪了

谁帮我看看代码哪里错了
strSQL = " INSERT INTO USysUsers(FUserName,FPassword,FPrompt,FAnswer)" & _
  " SELECT '" & Me.txtUserName & "','" & RC4(Me.txtPassword) & "','" & Me.cboPrompt & "','" & _
  RC4(Me.txtAnswer) & "'"
  CurrentProject.Connection.Execute strSQL, lngRecordsAffected

  If lngRecordsAffected <> 0 Then
  '向权限表中添加记录
  lngUserId = DLookup("[FUserId]", "USysUsers", "[FUserName]='" & Me.txtUserName & "'")

  strSQL = " INSERT INTO USysUserRights(FUserId,FItemId)" & _
  " SELECT " & lngUserId & ",FItemId" & _
  " FROM USysMenuItems" & _
  " WHERE FParent<>0"
  CurrentProject.Connection.Execute strSQL, lngRecordsAffected

  If lngRecordsAffected <> 0 Then
  MsgBox "注册成功！" & vbCr & "您的用户ID为：" & lngUserId, vbInformation
  Call cmdCancel_Click
  End If
  End If

------解决方案--------------------------------------------------------
是没有实现你的要求吗？