Datenbanken: Laufzeitfehler 13 -Typen unverträglich VB-Version:  VB5, VB6
	Views:  867

Da haben Sie nun Ihre Datenbank und möchten eine Abfrage starten. Sie nehmenIhren Code, der ja schon öfter funktioniert hat, z. B. 

Dim DB As Database
Dim RS As Recordset
   
Set DB = DBEngine.OpenDatabase(App.Path & "Adressen")
Set RS = DB.OpenRecordset("SELECT Name FROM Adressen")
 
.....
' weiterer Code

und genau in dieser Zeile: Set RS = DB.OpenRecordset meckert VB und meldet:Typen unverträglich. Warum?

Meistens liegt es daran, dass in den Verweisen sowohl DAO als auch ADOaktiviert ist. Wenn Sie ADO nicht verwenden, können Sie einfach den Verweis aufADO deaktivieren - und das Problem ist erledigt.

Falls Sie aber - aus welchen Gründen auch immer - beide Verweise brauchen, dann muss die Recordset-Variable so deklariert werden:

Dim RS As DAO.Recordset

Damit erkennt VB, dass DAO gemeint ist und hat nichts mehr zum Meckern.