Const m_def_MyDatabaseName = "" 
Const m_def_MyRecordSource = "" 
 
 
Dim m_MyDatabaseName As String 
Dim m_MyRecordSource As String 
 
 
Public Property Let MyDatabaseName(ByVal New_MyDatabaseName As String) 
    m_MyDatabaseName = New_MyDatabaseName 
    PropertyChanged "MyDatabaseName" 
    Data1.DatabaseName = MyDatabaseName 
End Property 
 
Public Property Let MyRecordSource(ByVal New_MyRecordSource As String) 
    m_MyRecordSource = New_MyRecordSource 
    PropertyChanged "MyRecordSource" 
    Data1.DatabaseName = m_MyDatabaseName 
    Data1.RecordSource = m_MyRecordSource 
    Data1.Refresh 
End Property 
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
 
    m_MyDatabaseName = PropBag.ReadProperty("MyDatabaseName", _
      m_def_MyDatabaseName) 
    m_MyRecordSource = PropBag.ReadProperty("MyRecordSource", _
    m_def_MyRecordSource) 
End Sub 
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag) 
 
    Call PropBag.WriteProperty("MyDatabaseName", m_MyDatabaseName, _
      m_def_MyDatabaseName) 
    Call PropBag.WriteProperty("MyRecordSource", m_MyRecordSource, _
    m_def_MyRecordSource) 
End Sub