With DE.rsCom1
If .State = adStateOpen Then
.Close
End If
.Open

Dim rsclone As ADODB.Recordset
Dim texto As String
Dim busccol As String
Dim buscte As String
Dim fbuscar As Variant
Dim rusr As String
Set rsclone = .Clone
rsclone.MoveFirst
buscco1 = "jugador"
buscte = Form1.TXT1.Text
texto = busccol & "='" & buscte & "'"
rsclone.Find texto
If rsclone.EOF Then
.AddNew
!jugador = Form1.TXT1.Text
!puntuacion = Form2.LBL3.Caption
Else
MsgBox "ya existe"
End If
End With