Dim rs As New ADODB.Recordset
Dim ConnectionString as String = "provider=sqloledb;server=localhost;database=northwind;uid=sa"
rs.Open("SELECT * FROM products", ConnectionString, ADODB.CursorTypeEnum.adOpenForwardOnly,ADODB.LockTypeEnum.adLockReadOnly)