Database issue

[Darren Smith]

For some reason my

Dim db as DataBase

says Compile error User-defined type not defined. Does anybody know why it`s driving me mad

Private Sub Combobox_List()

    Dim rsQry As Recordset
    Dim Qry As String
    Dim i As Long
    Dim db As DataBase
    Dim dbPath As String
    
Qry = "SELECT * FROM VehicleData"
dbPath = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\TGS-SRV01\Share\ShopFloor\PRODUCTION\DLS Cardworker\Access Files\DrNo Data Base.accdb;"
Set db = DBEngine.workspaces(0).OpenDatabase(dbPath)
Set rsQry = db.OpenRecordset(db, dbOpenSnapshot)
Model_Type.Clear

i = 0
While Not rsQry.EOF
'ModelType.AddItem
Me.Model_Type.List(i, 1) = rs.Fields("ModelType").Value
rs.MoveNext
i = i + 1
Wend
rs.Close

   
End Sub

 

[Darren Smith]

Sorry it`s this line

Set rsQry = db.OpenRecordset("SELECT * FROM [ModelType]", dbOpenSnapshot)

 

[RoryA]

Where is the database located? An error like that is often to do with something like network connection issues, or AV software locking files.

 

[Darren Smith]

It`s located in the same folder as the excel sheet. I have just opened it up and there is nothing wrong with the database as far as I know