brugernavn og adgangskode

<ole>

Umiddelbart ville jeg tro, det er smartest at lave to felter, brugeren kan skrive i. Hvordan resten skal laves, er du den eneste på kloden, der har mulighed for at vide  :)

/mvh
</bole>

Hvordan vil sådan en kode se ud? i dag ser det således ud:

Function open_connection() As ADODB.Connection
' Connect string
    Dim strCnxn As String
        ' Define a command object for a stored procedure
    Set open_connection = New ADODB.Connection
    strCnxn = "DSN=INFO; UID=xxxxxx;Password='yyyyyy';"
    open_connection.ConnectionTimeout = 600
    open_connection.Open strCnxn

End Function

Det er som sagt kun dig, der kan vide det. Husk på, vi andre ved _absolut_ intet om projektet, eller hvordan det er opbygget  :)

Proev dette:

Function open_connection() As ADODB.Connection
Dim Uname as String
Dim Pword as string
Uname = InputBox("Enter username:", "Username required")
Pword = InputBox("Enter password:", "Password required")
' Connect string
    Dim strCnxn As String
        ' Define a command object for a stored procedure
    Set open_connection = New ADODB.Connection
    strCnxn = "DSN=INFO; UID=" & Uname & ";Password='" & Pword & "';"
    open_connection.ConnectionTimeout = 600
    open_connection.Open strCnxn

End Function

Mange tak for svaret.

Jeg får nu fejlmeddelelsen "user-defined type not defined"

Kan du også hjælpe med dette?

det lyder som om du ikke har en reference til et dataobjekt (Project/References) ?

Hvilken version af VB arbejder du med ? Er det det originale project eller har du blot kopieret koden ind i et nyt project ?

kom du videre ?

Nej jeg kom ikke videre desværre. Det er det originale projekt jeg anvender. Jeg anvender den VB der er i Excel 2003