'==================================================================================================

'##### Рекордсет

'

'--------------------------------------------------------------------------------------------------

Sub OpenDB()

Set conn = Nothing

Set conn = New ADODB.Connection

conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _

"Dbq=D:\Public\Documents\Temp\data_ref_User.accdb;Uid=Admin;Pwd=;"

conn.Open

Set rs = Nothing

Set rs = New ADODB.Recordset

Sql = "SELECT * From ListRefBlock"""

rs.Open Sql, conn, 3, 3

aTemp = rs.GetRows

If conn.State = 1 Then

MsgBox "Соединение установлено"

Else

MsgBox "Соединение не установлено"

End If

End Sub

'==================================================================================================