Dim frmForm As New Form1
'...
frmForm.Data1.DatabaseName = "..."
'...
frmForm.Show

'Dim Rus As Variant
'Dim Braz As Variant
'Dim Data1 As Variant

Private Sub Command1_Click()

Dim frmForm As New Form1

If Combo1.text = "Россия" Then
    frmForm.Data1.DatabaseName = App.Path & "\Countries\SRussia.mdb"
ElseIf Combo1.text = "Бразилиа" Then
    frmForm.Data1.DatabaseName = App.Path & "\Countries\SBrazil.mdb"
Else
    MsgBox "выберите страну"
    Exit Sub
End If

frmForm.Data1.Refresh
frmForm.TDBGrid1.DataSource = frmForm.Data1
frmForm.Show

End Sub

'Private Sub Form_Load()
'Rus = Россия
'Braz = Бразилия
'End Sub

Private Sub Command1_Click()

Dim text As New clsTextAsColection
Dim l As Long
Dim frmForm As New Form1

On Error GoTo err_exit

If Combo1.text = "Россия" Then
    frmForm.Data1.DatabaseName = App.Path & "\Countries\SRussia.mdb"
    text.OpenText App.Path & "\Combos\Soccer\Russia.txt"
ElseIf Combo1.text = "Бразилиа" Then
    frmForm.Data1.DatabaseName = App.Path & "\Countries\SBrazil.mdb"
    text.OpenText App.Path & "\Combos\Soccer\Brazil.txt"
Else
    MsgBox "выберите страну"
    Exit Sub
End If

frmForm.Data1.Refresh
frmForm.TDBGrid1.DataSource = frmForm.Data1

For l =  1  To text.Count
    If l =  1  Then
        frmForm.Combo1 = text.Stroka(l)
        frmForm.Combo2 = text.Stroka(l)
    End If
    frmForm.Combo1.AddItem text.Stroka(l)
    frmForm.Combo2.AddItem text.Stroka(l)
Next l

frmForm.Show

Exit Sub
err_exit:
MsgBox Err.NUMBER & vbCrLf & Err.Description

End Sub

Data1.RecordSource = "SELECT * FROM CurAll WHERE Field2 = '" & Combo1.text & "' AND Field3 = '" & Combo2.text & "'or Field2 = '" & Combo2.text & "' AND Field3 = '" & Combo1.text & "' ORDER BY Field1 DESC"