str02 = "select jldbh from zjjl where 1=1 and xmbm=" + "'" + TextBox1.Text.ToString + "'"
Dim ata As DataTable = ins.CreateDataTable(str02, "zjjl", "tjjldata")
Dim acou As Integer = ata.Rows.Count
Dim bh As String = tt.Rows(0).Item("gz").ToString + "-" + ma + "-" + (acou + 1).ToString
select substring(xmax,1,5)+cast(cast(substring(xmax,6,1) as int)+1 as varchar(20)) from
(
select max(jldbh) as xmax from mytbl where jldbh like 'kj-ok%'
) xx