Option Explicit
Public fileSrv As String, fileLocal As String

Private Sub cmbSrvFind_Click()
Me.cboSrvClient.Text = OpenDialogFileName
'Me.cboSrvClient.DefaultValue = OpenDialogFileName
End Sub

Private Sub Command1_Click()
cboFileClient = OpenDialogFileName
End Sub

Private Sub Command2_Click()
Dim retval As Long  ' возвращаемое значение
' копируем файл
retval = CopyFile(Me.cboSrvClient.Text, Me.cboFileClient.Text,  0 )
If retval =  0  Then  ' если ошибка
  MsgBox "Не могу скопировать файл "
Else  ' если все нормально
  MsgBox "Файл скопирован."
End If
End Sub

Private Sub Form_Load()
If Me.cboSrvClient.Tag <> "" Then
Me.cboSrvClient.Text = Me.cboSrvClient.Tag
'MsgBox "В момент открытия программы свойство Tag текстбокса имеет значение: " & Me.cboSrvClient.Tag
Else
'MsgBox "В момент открытия программы свойство Tag текстбокса пустое!"
End If
fileSrv = Me.cboSrvClient.Text
Dim ws As DAO.Workspace, db As DAO.Database, rs As DAO.Recordset
Set ws = DBEngine( 0 )
Set db = ws.OpenDatabase(fileSrv)
On Error GoTo LblError
Dim strSQL As String
strSQL = "SELECT tblVersions.NewID, tblVersions.NewNomber, tblVersions.NewDate, tblVersions.NewEdit, " & _
" tblVersions.NewDescription From tblVersions ORDER BY tblVersions.NewNomber DESC , tblVersions.NewDate DESC;"
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
If rs.RecordCount =  0  Then
MsgBox "Информация о версиях отсутствует. Сопоставление произвести нет возможности.", vbInformation + vbOKOnly, _
"Внимание"
GoTo LblNext
End If
rs.MoveFirst
MsgBox "Номер последнего обновления: " & rs!NewNomber, vbInformation + vbOKOnly, "Инфо"
GoTo LblNext
LblError:
MsgBox "Операция прервана в виду возникновения ошибки!", vbCritical + vbOKOnly, "Выполнение прервано"
LblNext:
rs.Close
db.Close
ws.Close
Set rs = Nothing
Set db = Nothing
Set ws = Nothing
If Command <> "" Then
MsgBox "При запуске программы использованы параметры: " & Command
End If
Me.cboSrvClient.Tag = Me.cboSrvClient.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
Me.cboSrvClient.Tag = Me.cboSrvClient.Text
'MsgBox "В момент закрытия программы свойство Tag текстбокса имеет значение: " & Me.cboSrvClient.Tag
End Sub