Fuzzy search

Sub App_Start
Form1.Show
con.New1
cmd.New1("",con.Value)
con.Open("Data Source = " & AppPath & "\pinyin.db")
Cmd.CommandText = "select * from pinyin where code='" &"a" & "'"
cmd.ExecuteTable("table1",500)
End Sub

Result: "a"
how to do it can the result is "ai" "dai" "aaa"……
 
Top