Dim strDBlogin As String

    strDBlogin = objAct.GetConnectString(INI_FILE)

    Set objRs = CreateObject("ADODB.Recordset")
    
    strQuery = "select * from T_会社 where 会社コード = '" & txtKaisyaCode.Text & "'"
    
    objRs.Open strQuery, strDBlogin
    
    If Not objRs.EOF Then
        
        txtKaisyaName.Caption = objRs.Fields(1) & ""
        
    Else

        MsgBox ("該当するデータは存在しません")
        Cancel = True

    End If
    
    objRs.Close

    objRs.CursorType = 1
    objRs.LockType = 3
    objRs.Open strQuery, strDBlogin
            
    If Not objRs.EOF Then

        MsgBox ("該当するデータが存在します")
        
    Else

        objRs.AddNew

        objRs.Fields(1) = txtKaisyaCode.Text
        objRs.Fields(2) = cmbYY.Text & "/" & cmbMM.Text & "/" & cmbDD.Text

        objRs.Update

    End If
    
    objRs.Close