我刚学VB有个小问题请大家帮忙？

Question

strname如果是个变量那么写成
set rst=dbs.execute("select max(id) from fkxqxx where name= '"& strname &"'")
strname如果是个字符串值那么写成
set rst=dbs.execute("select max(id) from fkxqxx where name= 'strname'")

Answer 1

Private Sub word_report_Click()
   Dim oWord As Word.Application
   Dim oDoc As Word.Document
   Dim oRange As Word.Range
   Dim oConn As ADODB.Connection
   Dim oRS As ADODB.Recordset
   Dim sTemp As String
   Set oWord = CreateObject("Word.Application")
   oWord.Visible = True
   Set oDoc = oWord.Documents.Add
   Set oRange = oDoc.Range
   Set oConn = CreateObject("ADODB.Connection")
   oConn.Open "Provider = SQLOLEDB.1;Password=misskid;Persist Security Info=True;User ID=sa;Initial Catalog=zydb;Data Source=wzsswz"
   Set oRS = oConn.Execute( _
     "SELECT code, name, link_man FROM company")
   sTemp = oRS.GetString(adClipString, -1, vbTab)
   sTemp = "code" & vbTab & "Name" & _
     vbTab & "link_man" & vbCrLf & sTemp
   oRange.Text = sTemp
   oRange.ConvertToTable vbTab, , , , wdTableFormatColorful2End Sub