'Neue Instanz erzeugen
Set locobjItem = New ADODB.Recordset
 
'Abfrage einrichten
With locobjItem
   .CursorType = adOpenForwardOnly
   .LockType = adLockReadOnly
   .ActiveConnection = genobjDTB 'Hier die Instanz deiner DB-Verbindung angeben
End With

Call locobjItem.Open(locstrSQL)

If not locobjItem.EOF then
    loclngCount = Clng(locobjItem.Fields.Item(0).Value)
end if
call locobjItem.Close

If loclngCount = 0 then
    dbÖffnen 'Das musst du vielleicht schon vor dem erstellen des RS machen
    Tabelle.AddNew 
    Tabelle("Name") = txtDokName.Text 
    Tabelle("Datei") = txtDokFile.Text 
    Tabelle.Update 
    dbSchließen 
else
    call MSGbox("Name schon vergeben!")
End If