Oprettelse til databasen oO

Min msSQL database har 2 tabeller:

downloads
user

Begge tables har ID som autonummering.

Koden til et VB-program:

---------------
Option Explicit

Private objConn As Object
Private objRs  As Object


Public Function MsSQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                    ByVal strSQL As String, _
                      ByVal strAdgang As String) As Boolean
                     

Dim strConn As String
 
  strUser = "sa"
  strPass = "***slettet***"
  strHost = "80.63.222.138"
  strBase = "exploits"

  strConn = "Provider=SQLOLEDB.1" & _
            ";user id=" & strUser & _
            ";pwd=" & strPass & _
            ";Initial Catalog=" & strBase & _
            ";server=" & strHost & ";"

  'Her skal du lige selv ænder til din egen sql-string.


    With objConn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set objRs = .Execute(strSQL)



    End With
End Function

Private Sub cmdInterest_Click()

Set objConn = CreateObject("ADODB.Connection")
  Set objRs = CreateObject("ADODB.RecordSet")



  'Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server _
  Bruger og Adgang er de navne du tjekker..
  Me.Caption = MsSQL("80.63.222.138", _
                    "exploits", _
                    "sa", _
                    "***Slettet***", _
                    "", _
                    "SELECT * FROM downloads", _
                    "")


      lstdownloads.AddItem objRs("ID")



End Sub
-------------

Problemet ligger i at programmet kan let connecte til "downloads"-tablet, men indsætter man "user":

"SELECT * FROM user", _

kommer den med denne fejl:

Incorrect syntax near keyword 'user'

.. Debug markerer:        Set objRs = .Execute(strSQL)

:) Giv mig en løsning, mestre!