让密码内容按*的格式来显示 达人来 送分,该如何解决

让密码内容按********的格式来显示 达人来 送分
让密码内容按************的格式来显示,而不是用textbox然后passwordchar因为    
我的admin的名称密码是显示在MSHFlexGrid里,而MSHFlexGrid和Adodc绑定。    
 
Adodc1.RecordSource     =     "SELECT     *     FROM     Admin     Where     名称     and     Format(密码) "    
 
上面不知道怎么写了，谢谢。

------解决方案--------------------
Private Sub Form_Load()
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select 名称,string(len(密码), " "* " ") as 密码 from Admin "
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
End Sub