Set grdbasins1.DataSource = rsBasins>
Private Sub cmdGetDataSource1_Click() Dim strDatabase 'wild stuff here. strDatabase = GetDatabase() ' this is a UDF common dialog txtdata1.Text = strDatabase ' Display for the user datTable1.DatabaseName = GetPath(strDatabase) ' important datTable1.RecordSource = GetBaseFileName(strDatabase) ' important datTable1.Refresh ' important' important' important MSFlexGrid1.Refresh ' important MSFlexGrid2.Refresh ' maybe overkill End Sub Private Sub cmdGetDataSource2_Click() Dim strDatabase 'wild stuff here. strDatabase = GetDatabase() txtData2.Text = strDatabase datTable2.DatabaseName = GetPath(strDatabase) datTable2.RecordSource = GetBaseFileName(strDatabase) datTable2.Refresh MSFlexGrid1.Refresh MSFlexGrid2.Refresh End Sub
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams