Dim strNeuTbl As String
Dim objConn As Object
Set objConn = New ADODB.Connection
 
With objConn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source") = DatenbankPfad
    .Open
  End With
  strNeuTbl = "Rename  " & cboFirma4.text & " FROM TO " & txtFirmaUm & ";"
  objConn.Execute strNeuTbl
 
  objConn.Close