Parameter 사용

With Cmd

.ActiveConnection = adoConn

.CommandText = "SELECT * FROM Table"

.CommandType = adCmdText

.Parameters.Append .CreateParameter("@startdate", adDBTime, adParamInPut, 8, startdate)

.Parameters.Append .CreateParameter("@TCount", adSmallInt, adParamOutPut, 0) ' 검색 결과 총갯수

.Parameters("@TCount") = 0

.Execute , , adExecuteNoRecords

Dim TotCount : TotCount = .Parameters("@TCount")

Set Rs = .Execute

If Not Rs.Eof Then

Dim Record : Record = Rs.GetRows()

End If

Rs.Close : Set Rs = Nothing

End With