como puedo optimizar este codigo

[fenix111]

CLSOPERACIONES-------------------------------------------------------------

Dim cn As New ADODB.Connection
Dim rstipo As New ADODB.Recordset
Dim rspago As New ADODB.Recordset
Dim rstotal As New ADODB.Recordset
Dim daniel As String

Private Sub Class_Initialize()

cn.CursorLocation = adUseClient
cn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="
cn.Open ("D:\VISUALBASIC\SQLBASIC\data\bd1.mdb")


End Sub

Public Function PAGORC(daniel2 As String) As Double

Dim daniel3 As String
Dim nombre As String
Dim daniel As String
nombre = daniel2
daniel = "select count(pago)as total from clientes WHERE nombre =" + "'" + nombre + "'" + "and " + "pago='credito'"
Set rstipo = cn.Execute(daniel)
daniel3 = "select count(tipo)as totaltipo from clientes WHERE nombre =" + "'" + nombre + "'" + "and " + " tipo ='regular'"
Set rspago = cn.Execute(daniel3)

p = MsgBox(rstipo.Fields("total").Value, vbOKCancel, "CREDITOS Q TIENE")
o = MsgBox(rspago.Fields("totaltipo").Value, vbOKCancel, "LOS TIPOS DE PAGO REGULAR")

PAGORC = rspago.Fields("totaltipo").Value / rstipo.Fields("total").Value

End Function
Public Function PAGOCV(DENTRA As String) As Double
Dim daniel3 As String
Dim nombre As String
Dim daniel As String

nombre = DENTRA
daniel = "select count(pago)as total from clientes WHERE nombre =" + "'" + nombre + "'" + "and " + "pago='credito'"
Set rstipo = cn.Execute(daniel)
daniel3 = "select count(tipo)as totaltipo from clientes WHERE nombre =" + "'" + nombre + "'" + "and " + " tipo ='regular'"
Set rspago = cn.Execute(daniel3)

p = MsgBox(rstipo.Fields("total").Value, vbOKCancel, "SOLO CREDITOS Q TIENE")
o = MsgBox(rspago.Fields("totaltipo").Value, vbOKCancel, "SOLO REGULARES")

PAGOCV = rstipo.Fields("total").Value / rspago.Fields("totaltipo").Value

End Function

Public Function PAGOCVC(DENTRA As String) As Double

Dim daniel3 As String
Dim nombre As String
Dim daniel As String
Dim daniel4 As String
Dim total As Integer
Dim rest As Integer

nombre = DENTRA

daniel4 = "select count(nombre) as totaln from clientes WHERE nombre =" + "'" + nombre + "'"
Set rstotal = cn.Execute(daniel4)

daniel = "select count(pago)as total from clientes WHERE nombre =" + "'" + nombre + "'" + "and " + "tipo='regular'"
Set rstipo = cn.Execute(daniel)

daniel3 = "select count(tipo)as totaltipo from clientes WHERE nombre=" + "'" + nombre + "'" + "and " + "pago='credito'" + "and tipo not like 'regular'"
Set rspago = cn.Execute(daniel3)

If rspago.Fields("totaltipo").Value >= rstipo.Fields("total").Value Then
rest = rspago.Fields("totaltipo").Value + rstipo.Fields("total").Value
End If

p = MsgBox(rstipo.Fields("total").Value, vbOKCancel, "SOLO SI ES REGULAR ")
o = MsgBox(rspago.Fields("totaltipo").Value, vbOKCancel, "SOLO SI ES CREDITO")

PAGOCVC = rest / rstotal.Fields("totaln").Value

End Function




CMDCALCULAR---------------------------------------------------------------------------------------------------------------

Dim vneg As New pryoperaciones.clsoperaciones

Private Sub cmd1_Click()
Dim cadena As String
cadena = nombre.Text
If Combo1.Text = "A" Then
txtresultado.Text = vneg.PAGORC(cadena)
Else
If Combo1.Text = "B" Then

txtresultado.Text = Round(vneg.PAGOCV(cadena), 4)
Else
txtresultado.Text = Round(vneg.PAGOCVC(cadena), 4)
End If
End If

End Sub

[GeoAvila]

Se me vienen un par de ideas a la mente, por ejemplo las variables

Daniel y Daniel 3 les seteas el mismo valor dos veces... o más veces.. para eso mejor crea las variables generales para el form

he aqui un ejemplito de lo que digo

Código:

Private Variable As Integer
Private Sub Command1_Click()
Variable = 150
MostrarDato
End Sub
Private Sub MostrarDato()
MsgBox Variable
End Sub

probá eso en un form en blanco con un botón agregado, y aplicalo para todas las varialbes que declarás más de una vez con el mismo valor..

nos vemos..