[الطالب]

سلام

هذا كود إن شاء الله يكون ما تبحث عنه

كود :

Dim cmd As New OleDb.OleDbCommand
cmd.Connection = cnn
cnn.Open()
cmd.CommandText = "SELECT * INTO [table2] FROM [table1]"
cmd.ExecuteNonQuery()
cmd.CommandText = "ALTER TABLE [table2] ADD PRIMARY KEY ([id])"
cmd.ExecuteNonQuery()
cnn.Close()
cmd.Dispose()

موفقين