01.Private Sub Command1_Click()
02.Dim cn As New ADODB.Connection
03.Dim cmd As New ADODB.Command
04.Dim rs As New ADODB.Recordset
05.cn.Open "DSN=xxxts", "", ""
06.cmd.ActiveConnection = cn
07.cmd.CommandText = "select CusSaleName" & "from Customer" & "where CusName LIKE ?"
08.cmd.CommandType = adCmdText
09.cmd.Parameters(0).Value = Text1.Text & "%"
10.Set rs = cmd.Excute
11.Do
12. Debug.Print rs("CusSaleName")
13. rs.MoveNext
14.Loop Until rs.EOF
15.rs.Close
16.cn.Close
17.End Sub
