Public Function GetData() As ADODB.Recordset Dim rs As ADODB.Recordset Dim conn As ADODB.Connection Dim str<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a> As String str<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a> = "select FirstName from dbo.Employees" Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a>OLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=127.0.0.1" conn.Open With rs .CursorLocation = adUseClient .CursorType = adOpenForwardOnly .LockType = adLockReadOnly .ActiveConnection = conn .Open str<a href="https://www.jb51.cc/tag/sql/" target="_blank" class="keywords">sql</a> End With Set GetData = rs Set conn = Nothing Set rs = Nothing End Function
