طريقة بحث

أحبابي السلام عليكم ورحمة الله وبركاته

أرجو تصحيح الكود التالي

1 - البحث بالاسم كامل .. ناجح

2 - البحث بأي جزء بالاسم .. ناجح يعني أبحث بـ ( محمد ) يأتي بكل من في اسمه محمد

3 - بقي طريقة البحث من بداية الاسم .. يعني أكتب محمد من بداية الاسم لا يعطيني ..

Private Sub Command2_Click()

' Data1.RecordSource = "select * from Employee Where name ='" & Text1.Text & "'"

' Data1.Refresh

Set MyConnection = New ADODB.Connection

Set MyMainRecordset = New ADODB.Recordset

MyConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:\tec\markaz.mdb"

MyConnection.Open

If MyConnection.State = adStateOpen Then

' الاسم كامل

' MyMainRecordset.Open "Select * from Employee Where name ='" & Text1.Text & "'", MyConnection, adOpenStatic, adLockOptimistic

' أي جزء في الاسم

MyMainRecordset.Open "Select * from Employee Where Name Like '%" & LTrim(Text1.Text) & "%'", MyConnection, adOpenStatic, adLockOptimistic

' ناقص البحث من بداية الاسم

................................................

MsgBox MyMainRecordset!Name

end sub