=Customer.CustomerID"
    Set DataGrid1.DataSource = Adodc1
    
    End Sub
    
    Private Sub LblCancel_Click()
    Unload Me
    End Sub
    
    Private Sub lblOk_Click()
    
    FrmDeliverQury.TxtDeliverID = TxtDeliverID.Text
    Unload Me
    
    End Sub