objRs = hvordan?

jeg faar hele tiden "run-time error'-2147467259 (80004005)
[mysql][odbc 3.51 Driver]#hy000host '80.197.56.242' is not
allowed to connect to server.

hele koden jeg bruger er.

Option Explicit

Private objConn As Object
Private objRs  As Object

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

  strConn = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & strHost & ";" _
            & "DATABASE=" & strBase & ";" _
            & "UID=" & strUser & ";" _
            & "PWD=" & strPass & ";"

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT * FROM oplysninger_users WHERE Brugernavn = username" & strBruger & "' AND Adgangskode = password" & strAdgang & "'"

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

        If Not (objRs.BOF Or objRs.EOF) Then
          'Her skal du nok ændere "brugernavn" og "adgangskode" _
          så det passer til dit. --> objRs(HER)
          If objRs("") = strBruger And _
            objRs("") = strAdgang Then
            MySQL = True
          End If
        End If

        .Close
    End With
End Function

Private Sub Form_Load()
  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 = MySQL("Exceed.lir.dk", _
                    "mysql", _
                    "Exceed", _
                    "mads87", _
                    "username", _
                    "password")
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set objConn = Nothing
  Set objRs = Nothing
End Sub

hej

det du får fejl på er adgangen til din database:

prøv at ændre i din Form_Load ved:

Me.Caption = MySQL("Exceed.lir.dk", _
                    "mysql", _
                    "Exceed", _
                    "mads87", _
                    "username", _
                    "password")

Det skal du ændre til det du har på din server. Lige nu forsøger du at forbinde til

strHost = Exceed.lir.dk 'din databasehost
strBase = mysql 'databasenavnet
strUser = Exceed 'brugernavnet til databasen
strPass = mads87 'passwordet til databasen
strBruger = username ' brugeren du vil slå
strAdgang = password 'password til brugeren

Det vil sige at du skal være sikker på at din adgang til serveren er korrekt - ellers får du ikke noget at vide om den bruger du vil slå op med scriptet.

/hiks