استاذي الفاضل jjafferr لم انتبه لهذا الكود ممكن شرح
Dim cmd As New ADODB.Command
Dim RS As New ADODB.Recordset
cmd.ActiveConnection = "Provider=SQLOLEDB;DataSource=yourserver;Database=yourDB;UID=test;PWD=test;"
cmd.ActiveConnection.CursorLocation = adUseClient
cmd.CommandText = "Select getdate()"
Set RS = cmd.Execute
Debug.Print RS(0)
RS.Close
cmd.ActiveConnection.Close