السلام عليكم ورحمة الله وبركاته
عزيزى 
الفكرة العامة هى جملة SQL عمل بيها استعلام بكل البيانات المطلوبة زى ما انتى عاوز ثم 
بعد ذلك جملة اخرى تعمل  Insert into فى الجدول الجديد فى هذه الحالة اول باول كل ما تضغط على الزر او شوف انت عاوز تحط الكود فيه يتم الاستعلام ثم عمل إضافة فى الجدول الجديد


If comp.State = 1 Then comp.Close
comp.Open "select * from wared", con
con.Execute "insert into wared (field1,field2,field3) values(" & Text1.Text & ", #" & Format(MaskEdBox1.Text, "mm/dd/yyyy") & "#,'" & Trim(Text2.Text) & "')"
هذا المثال يوضح 3 حالات 
الاولى نوعه number
الثانى date
الثالث text
بالنسبة للروشنة فى الفورم 
اضف statuse pare
 2 timer
Private Sub Timer3_Timer()
Timer3.Interval = 100
i = i + 1
St1.Panels(1).Text = Left(str1, i)
If i = Len(str1) Then
i = 1
Timer3.Interval = 3000
End If
End Sub
Private Sub Timer1_Timer()
Me.Caption = Mid(Me.Caption, 1 + 1, Val(Len(Me.Caption) - 1)) & Mid(Me.Caption, 1, 1)
End Sub
Private Sub Form_Load()
connect
str1 = "E? C?E???? E?C??E C?O??E C????I?E ?????EC? / ????E ???C? C????? / C?I??                      "
hMenu& = GetMenu(Main.hWnd)
hSubMenu& = GetSubMenu(hMenu&, 0)
hID& = GetMenuItemID(hSubMenu&, 0)
 Label2 = loggeduser_with_pc_name
   Label3 = loggedusername
  Set objWshNet = CreateObject("Wscript.Network")
    Label6 = objWshNet.ComputerName
End Sub