Visual Basic - If rs0.EOF() Then SQL insert

Set rs0 = New ADODB.Recordset
Dim SQL As String
SQL$ = "SELECT * FROM nosdepartida"
SQL$ = SQL$ & " WHERE CIA = '" & mcia & "' "
SQL$ = SQL$ & " AND nopda = '" & txtnopda.Text & "'"
rs0.Open SQL, Cnn, adOpenDynamic, adLockPessimistic, adOpenKeyset 'adLockPessimistic

todas esas instrucciones de arriba las hago para determinar
si existe el registro, si este no existe procedo a agregarlo con
las instrucciones de abajo. hay alguna manera de verificar
todo en el SQL para asi no hacer lo de arriba, lo que no es
si esto se pudiera como quedaria lo de pesimista , optimista
y las demas instrucciones del CNN

If rs0.EOF() Then
SQL = "INSERT INTO nosdepartida (cia, NOPDA, name_pda, centro_costo, ajustar, llevaconceptos) VALUES ('" & mcia & "','" & txtnopda & "',' ',false,false,false)"
Cnn.Execute SQL
Else
txtname_pda = rs0!name_pda
End If

Mira Jose, lo que pides es posible, eso se hace con los Procedimientos almacenados, tendrias que revisar la documentacion de tu base de datos para ver como se hace. Es decir, la sintaxis de los procedimientos almacenados dependen de la base de datos (SQL Server, Oracle, etc)

Saludos desde Lima