Private Sub AdoToExcel()
   Dim rs As Recordset
   Set rs = adoconn.Execute("SELECT * FROM DeineTabelle")
   Dim e As New Excel.Application
   e.Application.Workbooks.Add
   e.Application.Visible = True
   e.Worksheets("Tabelle1").Range("a1").Value = rs.Fields(0).Value
   rs.Close
   Set rs = Nothing
End Sub