Hej Morten
> Hvorfor virker nedenstående ikke?
>
> Function GetData()
> Set DB = CreateObject("c:\internet.mdb")
> SQL = "SELECT * FROM get2net"
> Set RST = DB.Openrecordset(SQL)
> End Function
Det er simpelt at svare på :) Du forsøger at oprette en komponent ud fra en
database .. Og det er helt umuligt.. Du skal gøre sådan:
Function GetData()
Set DB = CreateObject("ADODB.Connection")
DB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\internet.mdb"
SQL = "SELECT * FROM get2net"
Set RST = DB.Execute(SQL)
End Function
Hilsen/Best regards
Kim Pedersen, vbCode Magician Host
http://hjem.get2net.dk/vcoders/cm
ICQ: 62990889