VBA调用SQLSERVER的自定义函数

调用返回记录的函数
Public Function GetBillLdNO(BillCode As String) As String
  GetBillLdNO = Trim(CurrentProject.Connection.Execute("SELECT * FROM dbo.Fun_GetBillLDNO('" & BillCode & "')")(0))
End Function

调用返回字符串的函数
Public Function GetMaxNo(Noname As String, LikeStr As String, SLen As Integer) As String
  GetMaxNo = LikeStr & Format(CurrentProject.Connection.Execute("SELECT dbo.Fun_GetMaxNO('" & Noname & "','" & LikeStr & "')")(0), CStr(Left("000000", SLen)))
End Function