Private Sub Command2_Click()
Dim Datos_1 As Recordset
Set Base = OpenDatabase("C:\BDPRUEBA.mdb", False, False, "")
SentenciaSQL = "Select * from DATOS"
Set Datos_1 = Base.OpenRecordset(SentenciaSQL)
Datos_1.Edit
Text11.Text = Datos_1(1).Value
Text7.Text = Datos_1(2).Value
Text8.Text = Datos_1(3).Value
Text9.Text = Datos_1(4).Value
Text10.Text = Datos_1(5).Value
Datos_1.Update
MsgBox "Datos Guardados", vbOKOnly + vbInformation
End Sub

Dim SentenciaSQL As String
Dim Base As Database

'suponiendo que tienes un boton denominado command1, tendriamos:
Private Sub Command1_Click()
Dim Datos_1 As Recordset
Set Base = OpenDatabase("C:\BDPRUEBA.mdb", False, False, "")
SentenciaSQL = "Select * from DATOS"
Set Datos_1 = Base.OpenRecordset(SentenciaSQL)
Datos_1.AddNew
Datos_1(1).Value = Text1
Datos_1(2).Value = Text2
Datos_1(3).Value = Text3
Datos_1(4).Value = Text4
Datos_1(5).Value = Text5
Datos_1.Update
MsgBox "Datos Guardados", vbOKOnly + vbInformation
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub

Private Sub Command1_Click()
  Dim etiqueta As Object
    Dim img As StdPicture
    Dim impr As Integer
    
    If Clipboard.GetFormat(vbCFBitmap) Then
 
        Set img = Clipboard.GetData
    End If
    Set etiqueta = CreateObject("Word.Basic")
    If Err Then
        MsgBox "Se han producido errores al crear la etiqueta", vbExclamation, "Error"
        Exit Sub
    End If
    etiqueta.FileNewDefault
    
    etiqueta.EditPaste


    etiqueta.AppClose
    etiqueta.AppMinimize
    Set etiqueta = Nothing

End Sub

Option Explicit

Private Sub Command1_Click()

    Dim ObjWord As Word.Application
    Dim ObjRange As Word.Range
    Dim NChar As Long
    Dim objeto As String
    Dim objeto2 As String
    Dim texto As String
    Dim texto1 As String
    Dim texto2 As String
    
    'Crea un nuevo objeto de word
    Set ObjWord = CreateObject("Word.Application")
    ' agrega un nuevo documento
    ObjWord.Documents.Add


    objeto = Text1.Text
    objeto2 = Text2.Text
    texto = vbCrLf & "CARTOGRAFIA" & vbCrLf & _
                     "Sección:" & objeto & vbCrLf & _
                     "Colonia:" & objeto2 & vbCrLf & _
                     "Fecha: " & Date & vbCrLf & _
                     "Hora: " & Time & vbCrLf
                     
     
    'drpJustification.Text = drpJustification.List(0)
    
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0)

    ' asigna el texto anterior
    ObjRange.Text = texto
    
    
    ' cantidad de caracteres
    NChar = ObjWord.ActiveDocument.Characters.Count
    
    ' selecciona el rango, es decir todo el texto anterior
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=NChar - 1)
    ObjRange.Select
    
    ' Le aplica formato al texto seleccionado
    With ObjWord
        .Selection.Font.Size = 10 ' tamaño
        .Selection.Font.Name = "Arial" ' fuente
        .Selection.Font.ColorIndex = wdBlack 'color
    End With
    
    ' Referencia al rango
    Set ObjRange = ObjWord.ActiveDocument.Range(Start:=0, End:=0)
        ObjRange.Select ' lo selecciona
        Clipboard.Clear ' limpia el portapapeles
        ' Establece la imagen de Image1 en el Portap.
        Clipboard.SetData Image1.Picture
    
        
        ' pega el gráfico
        ObjWord.Selection.Paste

    ' limpia el Clipboard
    Clipboard.Clear
    ObjWord.Visible = True ' hace el Word Visible
    
End Sub

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long


Public OK As Boolean
Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long


    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        txtUserName.Text = Left$(sBuffer, lSize)
    Else
        txtUserName.Text = vbNullString
    End If
End Sub

Private Sub cmdCancel_Click()
    OK = False
    Me.Hide
End Sub

Private Sub cmdOK_Click()
    'Pendiente: crear comprobación de contraseña
    'comprobar si la contraseña es correcta
    If txtPassword.Text = "" Then
        OK = True
        Form1.Show
        frmLogin.Hide
    Else
        MsgBox "La contraseña no es válida; vuelva a intentarlo", , "Inicio de sesión"
        txtPassword.SetFocus
        txtPassword.SelStart = 0
        txtPassword.SelLength = Len(txtPassword.Text)
    End If
End Sub