'.....數據庫的連接過程這裏略了
Set rs = CreateObject("adodb.recordset")
rs.open "select * from [公差等級] where [工程尺寸]=3", conn, 1, 1
If rs.EOF Then
MsgBox "數據未找到!"
Else
For i = 1 To 13
If Val(rs("IT" & i)) = 10 Then
zdm = "IT" & i
Exit For
End If
Next
If i > 13 Then
MsgBox "未找到匹配的字段名!"
Else
MsgBox "找到的字段名是" & zdm
End If
End If
rs.Close
Set rs = Nothing