1、工程=》引用=》microsoft acvitex data objects 2.5 library2、添加一个Adodc控件。Dim mstream As ADODB.StreamDim strSQL As String, strCnn As StringDim cnn1 As ADODB.ConnectionDim rstTitles As ADODB.Recordsetpictureobx1.picture=loadpicture("c:\kd\test.jpg)'直接显示图片strSQL = "select * from 表名" strCnn = "Provider=SQLOLEDB.1;