Creación de código automática

 Private Sub nuevafactura()
        Try
            If Not con.State = ConnectionState.Open Then
                con.Open()
            End If
            Dim maximo As Integer
' la funcion coalesce (max(nfactura) trae el numero de codigo mas grande
            Dim cmdmaximo As New SqlCommand("select coalesce (max(nfactura),0) as maxid from factura", con)
            maximo = cmdmaximo.ExecuteScalar()
            If maximo = 0 Then
                txtnfactura.Text = 1
            Else
                txtnfactura.Text = maximo + 1
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub