Public ADOConnection As ADODB.Connection
Function OpenADOConnection() As Connection
If ADOConnection Is Nothing Then
Set ADOConnection = New ADODB.Connection
ADOConnection.ConnectionString = "FILE NAME=путь к udl"
ADOConnection.CursorLocation = adUseClient
ADOConnection.Open
End If
Set OpenADOConnection = ADOConnection
End Function


Private Sub Form_Load()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select flight from way", OpenADOConnection, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rs
field1.ControlSource = rs.Fields(0).Name
End Sub

После выполнения поле не позволяет редактировать. Никаких связок общих не делаю, хочу все ручками прописать.
Как добиться возможности редактирования, а точнее обычной работы,
как будто, если бы с помощью мастеров назначал источники данных?
Заранее спасибо!