Попробуй так (объявит глобальную переменную
вне процедуры):
Код:
Public Connection As Variant
Private Sub Form_Load()
Set Connection = New ADODB.Connection
Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Const DataSource = "Data Source=com_db.mdb"
Connection.Open (Provider & DataSource)
On Error GoTo Finally
Exit Sub
Finally:
If (Err.Number <> 0) Then
MsgBox Err.Description
End If
DoCmd.GoToRecord , , acNewRec
End Sub
ИМХО, использовать связанные таблицы проще, чем подключать их "руками".
По поводу обновления - сейчас уже и не вспомню почему так делал, но когда мне надо было обновить список я делал так (strFilter - SQL запрос):
Код:
If SysCmd(acSysCmdGetObjectState, acForm, "frmExportWord") Then _
Forms!frmExportWord.lbxDatalist.RowSource = strFilter