Jag har följande kod men den bara gnäller på incompatible type, har ni nåt tips på hur man ska komma runt det?

Dim cn As Connection
Dim rs As Recordset

sConnect = "ODBC;Driver=SQL Server;UID=" & sLoginID & _
";PWD=" & sPassword & _
";Server=" & sServer & _
";Database=styrbas2"
'Open the new connection
Set cn = ws.OpenConnection("", dbDriverComplete, False, sConnect)

' är en stored procedure på en sql server
sSql = "GetAllComponentTypes"

'Call the procedure
Set Me.Recordset = cn.OpenRecordset(sSql)

Set Forms(Forms.Item(0)).Recordset = cn.OpenRecordset(sSql)

Du måste använda ADO om du hämtar data från en SQL server:
<code>
Private Sub Form_Load()
Dim rs As ADODB.Recordset
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "Provider=SQLOLEDB.1;" & _
"Data Source=" & sServer & ";" & _
"Initial Catalog=styrbas2;" & _
"Persist Security Info=False;", sLoginID, sPassword

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "GetAllComponentTypes", con, adOpenKeyset, adLockOptimistic, adCmdTable

Set Me.Recordset = rs
End Sub
</code>

Och om inta jag har fel för mig måste man använda DAO som källa till formulär.

Eller är det så att ett ADP-projekt (Access mot SQL-Server) kan hantera ADO som källa?