Private Sub Command1_Click()
Set hxc_record = New ADODB.Recordset
lssql = "select calling_nbr,called_nbr from extend_ticket where calling_nbr='" & Text1.Text & "'and calling_nbr>' '"
With hxc_record
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open lssql, conn
End With
Set DataGrid1.DataSource = hxc_record
End Sub执行完后datagrid是空的请问我该怎么办??