Dim oRst2 As DAO.Recordset
Dim Db As DAO.Database
Dim oTbl As DAO.TableDef
Dim Source2 As String
Set Db = DBEngine.OpenDatabase("K:\Work in Progress\Paul-Henri\Reception process\test2.mdb")
Worksheets("Form").Select
Source2 = "SELECT * FROM Positions WHERE [Business Unit] = '" & Range("E19").Value & "'"
Set oRst2 = Db.OpenRecordset(Source2, dbOpenDynaset)
MsgBox (oRst2.RecordCount)
MsgBox (oRst2.Fields("Desk"))