Тогда зачем к нему коннект создавать? Можно просто с локальными талицами работать например так:
Код:
Private Sub proff_in_b_Click()
Dim qwery As String
On Error GoTo Finally
proff_in.SetFocus
qwery = "INSERT INTO proff_T ( proff ) VALUES ('" + proff_in.Text + "');"
DoCmd.RunSQL (qwery)
proff_list.Requery
End Sub