Format SQL strings in VB program

When writing SQL statements, you need to add a # number to different types of data. "Number, etc., with the following functions, you can achieve the simplification of the operation. No matter what type, just use this Q function to transform, do not need to add formatting symbols, OK. It's really convenient. I've been using it, it's really convenient .

Function Q(ByVal SqlVariable As Variant) As String
'-----------------------------------------
'　　　　Notes: Useful in creating properly formatted SQL statements
'　　　　Usage: sql="select * from table where name= " & Q(vntName)
'　　　　这个版本格式化适用于Access的变量，若支持其它数据库或许需要对其进行修改
'-----------------------------------------
On Error GoTo ErrTrap
Q = SqlVariable
'format the string
Select Case VarType(SqlVariable)
Case vbNull, vbEmpty
Q = "NULL"
Case vbString
Q = "'" & Replace(SqlVariable, "'", "''") & "'"
'date variable
Case vbDate
'format and enclose in pounds signs for Access
Q = "#" & Format$(SqlVariable, "general date") & "#"
'otherwise treat as numeric
Case Else
On Error Resume Next
Q = CStr(SqlVariable)
If Err.Number <> 0 Then Q = SqlVariable
End Select
Exit Function
ErrTrap:
On Error GoTo 0
End Function