学步园

Public Function GetData() As ADODB.Recordset<br /> Dim rs As ADODB.Recordset<br /> Dim conn As ADODB.Connection</p> <p> Dim strSql As String</p> <p> strSql = "select FirstName from dbo.Employees"</p> <p> Set conn = New ADODB.Connection<br /> Set rs = New ADODB.Recordset</p> <p> conn.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=127.0.0.1"<br /> conn.Open</p> <p> With rs<br /> .CursorLocation = adUseClient<br /> .CursorType = adOpenForwardOnly<br /> .LockType = adLockReadOnly<br /> .ActiveConnection = conn<br /> .Open strSql<br /> End With</p> <p> Set GetData = rs</p> <p> Set conn = Nothing<br /> Set rs = Nothing</p> <p>End Function</p> <p>