这是你的全部吗？
创新互联公司2013年开创至今，是专业互联网技术服务公司，拥有项目成都网站设计、网站建设、外贸网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元下花园做网站,已为上家服务,为下花园各地企业和个人服务,联系电话:028-86922220
首先连接数据库连接了吗？Sqlconnection的定义，然后在后面填写你要连接的数据库，以及用户名和密码
Dim sqlcon As New SqlConnection("Data Source=WWW-9A6F5E15ECC;Initial Catalog=gj;User ID=sa;Password=123")
sqlcon.Open()
然后这是VB.NET吗？
语法就有问题
dim sql as string = "select max('id') as zd from 基本信息 where 子类='客商'"
dim sqlcmd as new sqlcommand(sql, sqlConnection1)
这些，再就是sql语句max(参数)
还有你想做什么。。你这表怎么样的。。始终觉得有点问题
没有这种函数，自己做一个函数，效率不会低，因为都是简单运算：
Function FillString(ByVal a As String, ByVal b As String, ByVal c As Integer) As String
If a.Length c Then
Return a + StrDup(c - a.Length, b)
Else
Return Mid(a, 1, c)
End If
End Function
" ' a ' " 什么都不是
因为Response.Write（）方法括号中写要显示的字符串，
"script language='javascript'alert('" a "')/script"整个是一个字符串，这中间的a是个变量，想要把变量的值应用进来就必须用字符串拼接的方式
整个字符串可以分三部分：
1."script language='javascript'alert('"
2. a
3."')/script"
这三部分用 连接起来
你的理解有点问题，' " a " '不是一个整体，你有点断章取义了
不知道你明白没有
VB中的单引号是用来注释的。
单引号后的任何文字仅用于注释程序，能清晰反映编程的代码需要说明的部分，不参与程序。这样的注释对于任何人查看代码都有好处，是一种良好的编写代码习惯。
如下列代码带有注释：
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.FileName
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
这种情况下，你要在那个单引号旁边再加一个单引号，2个个单引号连在一起，不要加空格，就不会报错了。以后读取时也只显示一个单引号
这要根据字段的类型来定，如果字段类型是文本型（或者说字符串型）就要加单引号，如果是数值型就不用加单引号，比如
where xxx = '123' 这个表明xxx是个字符型的字段
where xxx = 123 这个则表明xxx是个数值型的字段
这个与程序中给字符型变量和数值型变量赋值的方式是同样的原理。