خطا في الكود الرجاء التصحيح

السلام عليكــم ورحمـة الله وبركاتــه ،،

اريد عرض بيانات من جدول في اس كيو ال سيرفر في صندوق رسالة مثال:

MyConnObj.Open _
		"Provider = SQLOLEDB.1;" & _
		"Data Source=server;" & _
		"Initial Catalog=serverDB;" & _
		"Integrated Security=SSPI;" & _
		"Persist Security Info=False;"


	sqlStr = "select fieldname from table where fieldid=" & Text1.Text

	myRecSet.Open sqlStr, MyConnObj, adOpenKeyset
	 MsgBox myRecSet
	 MyConnObj.Close

حيت انني هنا اريد عرض fieldname بناء على fieldid الذي سيكون مدخل من ال text1.text

بانتظار الرد وشكرا