สอบถามเรื่อง Error ODBC SQL Server Driver ครับ เว็บอยู่ดีๆก็errorขึ้นมา

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=10.40.1.27;Database=Build;UID=sa;PWD=sa;" 
sqlMach="SELECT *  FROM M2MHNO Where( M2MACH='HP-2' or M2MACH='ONE-2') and M2DEPT='B5' order by M2TYPE"
Set rsMach= Server.CreateObject("ADODB.Recordset")
rsMach.open sqlMach,conn,1,3      '<<<<<  ฟ้อง Error บรรทัดนี้ครับ!!!!
Dim intRows
	Response.Buffer=true
	intRows=1
		Do While Not rsMach.EOF
			If intRows Mod 100 Then
				Response.Flush
			End IF

                          '<<< ส่วนของการคำนวณ >>>'

                        intRows=intRows+1
		        rsMach.MoveNext
		  Loop
		  rsMach.Close 
	Set rsMach = Nothing