Using the following code:

Dim oApp As Outlook.Application
    Dim oNS As Outlook.NameSpace
    Dim oInbox As Outlook.MAPIFolder
    Dim oCompleted As Outlook.MAPIFolder
    Dim oMailItem As Outlook.MailItem
    Dim DB As Database
    Dim RS As Recordset
    Dim X As Long, Y As Long
    
    Set oApp = New Outlook.Application
    Set oNS = oApp.GetNamespace("MAPI")
    Set oInbox = oNS.GetDefaultFolder(olFolderInbox)
    'Set oCompleted = oInbox.Folders("Completed")
    
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("IncomingT", dbOpenDynaset)
    
    For Each oMailItem In oInbox.Items
      MsgBox oMailItem.Subject
    Next



I get a type mismatch error where oMilItem is set to nothing.

Any ideas on how to fix this?