keygenerator in vb.net 2008

Sure. What's the question?

Public Function Auto_GenerateNo() As String
Dim ds As New DataSet
Dim cn As New MySqlConnection
Dim cmd As New MySqlCommand
Dim st As String
Try
cn.ConnectionString = GetConstring()
cn.Open()
Dim s As String = "SELECT Max(Reg_No) AS max FROM tableName"
cmd.CommandText = s
cmd.Connection = cn
Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
da.Fill(ds)

If ds.Tables(0).Rows(0).Item("max").ToString = "" Then
st = "YG00000" & 1
Return st
Else
Dim s_cno As String = ds.Tables(0).Rows(0).Item("max").ToString.Substring(3)
Dim i As Integer = Convert.ToInt32(s_cno)
i = i + 1
st = "YG" + year + (i.ToString.PadLeft(6, "0"))
Return st
End If
cn.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, title)
End Try

End Function
'it can autogenerate the Reg_NO and i wish, this can hep You