Public Sub UpdateFieldValue()
    On Error GoTo ErrorHandler

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim varDate As Variant
    Dim strFieldValue As String
    Dim strNumericExpression As String
    
    Set cnn = CurrentProject.Connection
    
    Set rst = New ADODB.Recordset
    rst.Open "tblData", cnn, adOpenKeyset, adLockOptimistic, adCmdTable
    
    
     With rst
        .MoveFirst
        Do Until .EOF
            ' Assign the first records data field
            ' to a variable, then change the field value
            strFieldValue = rst!Data
            Debug.Print "Original data: " & rst!Data
            strNumericExpression = SplitString(strFieldValue)
    
            If Not IsNull(strNumericExpression) Then
                rst!Data = strNumericExpression
                rst.Update
                Debug.Print "Changed data: " & rst!Data
            End If
            .MoveNext
        Loop
    End With
    
    ' clean up
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub
    
ErrorHandler:
    ' clean up
    If Not rst Is Nothing Then
        If rst.State = adStateOpen Then rst.Close
    End If
    Set rst = Nothing
    
    If Not cnn Is Nothing Then
        If cnn.State = adStateOpen Then cnn.Close
    End If
    Set cnn = Nothing
    
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub

Public Function SplitString(strString As String) As String
    Dim avarStringArray As Variant
    Dim intIndex As Integer
    Dim blnNumeric As Boolean
    
    avarStringArray = Split(strString, " ")
    
    'Can array element be evaluated as a number?
    For intIndex = 0 To UBound(avarStringArray)
        blnNumeric = IsNumeric(avarStringArray(intIndex))
        
        If blnNumeric Then
            SplitString = avarStringArray(intIndex)
            Exit Function
        End If
            
    Next intIndex
        
End Function

blnNumeric = IsNumeric(avarStringArray(intIndex))

blnNumeric = Not IsNumeric(avarStringArray(intIndex))