让SQL传回格式化后的数值

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
Dim Rs As ADODB.Recordset
  Set Rs = Conn.Execute("select str(12,10,2)")
  MsgBox Rs.Fields(0)
End Sub