关于VB数学表达式计算的问题

网上看到一种用ADO计算数学表达式结果的方法，如下：
    Dim strExpress As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    strExpress = "3+4*5/6"
    rs.Open "Select " & strExpress & ";", g_DbCnnMis, adOpenForwardOnly, adLockReadOnly
    但是rs(0)只会返回整数部分结果：6，小数部分不见了，
请问如何返回正确的浮点数？