Component MSFlexGRD.ocx or one of its dependencies not correctly registered is a file missing or invalid.

Private Function ReadID_OsnDog_poNomerDataDog1(ByVal Nomer As String, ByVal Data As Date, ByRef id_dog1 As Integer) As Boolean

On Error GoTo Exp:
    
    ReadID_OsnDog_poNomerDataDog1 = False

Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = Cn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "usp_dog1_find_po_nomer_data"

Dim prm1 As New ADODB.Parameter     'Номер
    prm1.Type = adChar
    prm1.Direction = adParamInput
    prm1.Size =  20 
    prm1.Value = Nomer
    cmd.Parameters.Append prm1

Dim prm2 As New ADODB.Parameter     'Дата
    prm2.Type = adDate
    prm2.Direction = adParamInput
    'prm2.Size = 15
    prm2.Value = Data
    cmd.Parameters.Append prm2

Dim prm3 As New ADODB.Parameter     'id_dog1
    prm3.Type = adInteger
    prm3.Direction = adParamOutput
    'prm3.Size = 4
    prm3.Value =  0 
    cmd.Parameters.Append prm3
        
    cmd.Execute
    VMsg Cn
    
    ReadID_OsnDog_poNomerDataDog1 = VrfConn(Cn)
    
    If ReadID_OsnDog_poNomerDataDog1 Then
        id_dog1 = prm3.Value
    End If
    
Exit Function

Exp:
    VMsg Cn
    ReadID_OsnDog_poNomerDataDog1 = False
    MsgBox "Выход ReadID_OsnDog_poNomerDataDog1"