Figured it out, this is my code:

Code:
Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=” & path & “;” & “Extended Properties=dBase IV”)

            dBaseConnection.Open()

            'New table
            Dim SQLCreateCommand As String
            'SQLCreateCommand = “CREATE TABLE NewTable ” & “(subdir TEXT(50))”
            Dim NewString As String = dt.ToString
            SQLCreateCommand = "SELECT * INTO NewTable From " & TableName
            Dim dBaseCommand As New System.Data.OleDb.OleDbCommand(SQLCreateCommand, dBaseConnection)

            dBaseCommand.ExecuteNonQuery()
            dBaseConnection.Close()