請問我要怎麼改呢?

我之前做的新增方式
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 可以看到全部內容