让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