Private Declare Function GetShortPathName Lib "kernel32" _
  Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, ByVal cchBuffer As Long) _
  As Long
 
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Private Sub Form_Load()
Dim KurzerName As String
 
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
 
  cn.CursorLocation = adUseClient
 
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBase III;Data" & _
     "Source=" & App.Path
 
  KurzerName = GetShortName(App.Path & "\DeinLangerDateiname.dbf")
 
  KurzerName = Mid(KurzerName, InStrRev(kname, "\") + 1)
 
  KurzerName = Mid(KurzerName, 1, InStrRev(kname, ".") - 1)
 
  rs.Open "SELECT * FROM [" & KurzerName & "]", cn, adOpenDynamic, _
    adLockOptimistic
 
End Sub