How to access database using ADO in VB6 - 在 VB6 中用ADO对象如何访问数据库

Public Function GetData() As ADODB.Recordset Dim rs As ADODB.Recordset Dim conn As ADODB.Connection Dim strSql As String strSql = "select FirstName from dbo.Employees" Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "Provider=SQLOLEDB.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 strSql End With Set GetData = rs Set conn = Nothing Set rs = Nothing End Function