Try

                    conn = New System.Data.SqlClient.SqlConnection(connstr)
                    conn.Open()
                    Dim barcode As String = tb.Text.ToString
                    Dim aa As New Data.DataSet
                    Dim sadp As New SqlClient.SqlDataAdapter
                    Dim sqltile As String = "select item_subno as 货号 ,barcode as 条码,item_name as 商品名称 ,unit_no as 单位  ,price as 进价 from bi_t_item_info where barcode='0039'"
                    sadp.SelectCommand = New SqlClient.SqlCommand(sqltile, conn)
                    sadp.Fill(aa)
                    dgd.DataSource = aa.Tables(0)
                    lb1.Items.Add(aa.Tables(0).Rows(0))


                    conn.Close()

                Catch ex As Exception
                    MsgBox("数据库连接错误" & ex.ToString)

                End Try

System.Data.SqlClient.SqlException: varchar 值 '013225394694' 的转换溢出了 int 列。超出了最大整数值。
   在 System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection)
   在 System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection)
   在 System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj)
   在 System.Data.SqlClient.TdsParser.Run(RunBehavior runBehavior, SqlCommand cmdHandler, SqlDataReader dataStream, BulkCopySimpleResultSet bulkCopyHandler, TdsParserStateObject stateObj)
   在 System.Data.SqlClient.SqlDataReader.HasMoreRows()
   在 System.Data.SqlClient.SqlDataReader.ReadInternal(Boolean setTimeout)
   在 System.Data.SqlClient.SqlDataReader.Read()
   在 System.(SchemaMapping mapping)
   在 System.(DataSet dataset, DataTable datatable, String srcTable, DataReaderContainer dataReader, Int32 startRecord, Int32 maxRecords, DataColumn parentChapterColumn, Object parentChapterValue)
   在 System.(DataSet dataSet, String srcTable, IDataReader dataReader, Int32 startRecord, Int32 maxRecords)
   在 System.(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   在 System.(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   在 System.(DataSet dataSet)
   在 百威数据查询.main.tb_KeyPress(Object sender, KeyPressEventArgs e) 位置 D:\My Documents\Visual Studio 2005\Projects\百威数据查询\百威数据查询\main.vb:行号 61