Private Sub UserForm_Initialize()
     Dim sql As String
     If flag_strana = True Then Unload strana_f
     flag2 = False
     flag = True
     flag_strana = False
     calendar.Show
     data.Caption = sana
     Set rs = New ADODB.Recordset
         Set cn = New ADODB.Connection
     cn.Open ConnectionString:="Provider=Microsoft.ACE.OLEDB.12.0;" & _
     "Data Source=" & ThisWorkbook.Path & "/tst.accdb" & ";"
     If cn.State <> 1 Then Exit Sub
     sql = "select distinct faculta from omuzgoron order by faculta"
     rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
     For i = 1 To rs.RecordCount
         strana_сombo.AddItem rs.Fields(0).Value
         rs.MoveNext
     Next i
     strana_сombo.AddItem "(Илова кардан)"
     rs.Close
     cn.Close
      Set cn = Nothing
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
End Sub
Private Sub vixod_Click()
    Me.Hide
      If flag_strana = True Then
         partner_f.Show
     End If
End Sub

     sql = "select strana  from strana"
     rs.Open sql, cn, adOpenDynamic, adLockBatchOptimistic

    If (KeyAscii < 65 Or KeyAscii > 91) And (KeyAscii < 97 Or KeyAscii > 122) And (KeyAscii < 48 Or KeyAscii > 58) And KeyAscii <> 64 And KeyAscii <> 46 And KeyCode <> 45 And KeyAscii <> 95 Then KeyAscii = 0

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
     Select Case KeyAscii
     Case 45, 46, 48 To 57, 64 To 90, 95, 97 To 122
     Case Else
         KeyAscii = 0
     End Select
End Sub