请问我要怎么改呢?

我之前做的新增方式
Dim db As New DbAccess("cNorthWind.MDF")
Dim SQL As String = ""

'建立一个不可能重复的key值
Randomize(Microsoft.VisualBasic.Timer)
Dim tmpKey As String = "识别码:" & Now.Ticks & Rnd()

'先新增一笔空白资料
SQL = "insert into 客户 (附注) values ('" & tmpKey & "')"
If db.ExecuteCmd(SQL) <= 0 Then
MsgBox("新增失败", MsgBoxStyle.Critical)
Exit Sub
End If

'将刚才新增的这笔资料带入
SQL = "select * ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容