لم أستطع نسخ قيمة من حقل من قاعدة بيانات لأخرى ؟

وهذا الكود ..

 Dim recNCollege As New ADODB.Recordset
	Dim recCollege As New ADODB.Recordset

	  recNCollege.Open "Select * from College ", cnn, adOpenDynamic, adLockBatchOptimistic
	  recCollege.Open "Select * from College ", cn, adOpenDynamic, adLockBatchOptimistic

	   MsgBox recNCollege!College
	   MsgBox recCollege!College

	   recCollege.MoveFirst
	   recNCollege.MoveFirst


	   recCollege!College = recNCollege!College & ""
	   recCollege.Update