# Re: Answer for re-help

Posted by spencer yang on March 24, 1999 at 02:36:54:

In Reply to: Re: dbgrid??再帮帮我...... posted by 小笨蛋 on March 20, 1999 at 18:16:41:

: 请用较传统方式
assumption
Field1 Name ' 姓名
Field2 Birthday ' 生日
Field3 Address ' 地址

sub findExample()
dim strFind as string
dim strName as string
dim dtmBrithday as date
dim strAddress as string

strFind = text1.text
with data1.Recordset
.Findfirst "Name=" & chr(39) & strFind & chr(39)
If .NoMatch then
MsgBox "No Record for Find"
Exit Sub
Else
strName = .field("Name")
dtmBirthday = .field("Birthday")
strAddress = .field("Address")
End If
End With
End Sub

Follow Ups: