Public Function KopiereTabelle(ByVal sOriginal As String, ByVal sKopie As _
   String)
        Try
            Dim myCommand As New OleDb.OleDbCommand("SELECT * INTO " + sKopie + _
              " FROM " + sOriginal & ";", myConnection)
            myCommand.ExecuteNonQuery()
 
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
    End Function

---------------------------------------------------------------------------------------------------------------
Wissen ist Macht, aber nichts wissen macht nichts!