Connect to the SQL Server database in VBA

Sub conndat () Sub Conndat ()
\ '
\ ' Conndat macro
\ ' Macros recorded by shaosimin-8-25
\ '
Dim Conn As Connection
Dim RS As Recordset

\ ' Connect to the SQL Server database
Set Conn =   New Connection
Conn. Open " Provider = sqloledb; Data Source = shao4; user id = sa; Password = 12345; database = DF "

\ ' Open Table
Set RS =   New Recordset
Rs. Open " Employee " , Conn, adopenforwardonly, adlockreadonly

\ ' Disable tables and databases
Rs. Close
Conn. Close
Set RS =   Nothing
Set Conn =   Nothing

End sub