Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If (Not Adodc1.Recordset.EOF) And (Not Adodc1.Recordset.BOF) Then
Text1.Text = StrStore(Adodc1.Recordset.Fields(0), 0)
Text2.Text = StrStore(Adodc1.Recordset.Fields(1), 0)
Text3.Text = StrStore(Adodc1.Recordset.Fields(2), 0)
End If
End Sub