急急急！！！高手进，帮帮忙啊！！

下面是小弟将数据库数据导成一定格式的TXT文件代码，运行后提醒  ”参数类型不正确或不在可以接受的范围之内“
布置错在哪啊，求助！！！

Private Type record_information
  ID As String
  End Type
Private Type record_blood_pressure_data
USER_ID As String
MAXB As Integer
MINBP As Integer
MEASURE_DATE As String
MEASURE_TIME As String
PULSE As Integer
End Type
Dim record_pressure_data  As record_blood_pressure_data
Dim CnnStr As String
Dim record_inf As record_information
Dim adconn As New ADODB.Connection
Private Sub Command3_Click()
Dim strSql As String
Private Sub Command3_Click()
Dim strSql As String
Dim rs As New ADODB.Recordset
Dim net_str As String
Dim h As Integer
Dim str_tou As String
Dim str_wei  As String
strSql = "select MEASURE_DATE,MEASURE_TIME,MAXBP,MINBP ,PULSE  from BpData where USER_ID = '" & h = Val(InputBox("请输入查询用户编号：", "请输入")) & "' "
  Open App.Path & "\zgh_xueya.txt" For Binary As #1
rs.Open strSql, adcoon, 1, 1
While rs.EOF = False 'rs.EOF
record_pressure_data.USER_ID = rs.Fields(1)
record_pressure_data.MAXB = rs.Fields(2)
record_pressure_data.MINBP = rs.Fields(3)
record_pressure_data.PULSE = rs.Fields(4)
record_pressure_data.MEASURE_DATE = rs.Fields(5)
record_pressure_data.MEASURE_TIME = rs.Fields(6)
rs.MoveNext
 net_str = record_pressure_data.MEASURE_DATE & vbCrLf & vbCrLf & record_pressure_data.MEASURE_TIME & vbCrLf & vbCrLf & Str$(record_pressure_data.MAXB) & vbCrLf & vbCrLf & Str$(blood_pressure.MINBP) & vbCrLf & vbCrLf_
             Str$ (record_pressure_data.PULSE) & vbCrLf & vbCrLf
            Put #1, , net_str
         
  Wend
            
             rs.Close
             Set rs = Nothing
            
   
     Close #1

End Sub --------------------编程问答-------------------- 自己先顶一下。。。。。 --------------------编程问答-------------------- 设断点逐句调试一下！！ --------------------编程问答--------------------
h = Val(InputBox("请输入查询用户编号：", "请输入")) 
strSql = "select MEASURE_DATE,MEASURE_TIME,MAXBP,MINBP ,PULSE from BpData where USER_ID = '" & h & "' "

补充：VB ,  数据库(包含打印，安装，报表)