Private Sub cdImport()
Dim inpSTR As String, mFileName  As String
mFileName = CD(Me.hwnd, "Excel Files(*.xls)" + Chr(0) + "*.xls", "Open File")

If mFileName <> "" Then
Dim slash As String
Dim str As Integer, si As Integer
Dim cS As Integer
cS = 1
slash = "\"
For si = 0 To Len(mFileName)
    str = InStr(cS + 1, mFileName, slash, vbTextCompare)
    If str <> 0 Then
        cS = str
    Else
        Exit For
    End If
Next si
Data1.DatabaseName = mFileName
Data1.RecordSource = Mid(mFileName, cS + 1, Len(mFileName) - cS - 4) & "$"
Data1.Refresh
ImportFM
End If
End Sub



Private Sub ImportFM()
'Flair = 20
'pAge = 35
For i = 0 To 15

With FMTeam.tPlayers(i)
    
    txtNum(i) = Data1.Recordset.Fields(0)
    
    txtPlayer(i) = UCase(Data1.Recordset.Fields(1))
    
    cmbNat(i).ListIndex = IndexNation(Data1.Recordset.Fields(2))
    
    .pPostn = IndexPst(Data1.Recordset.Fields(3)) / 32
    
    
    cmbPst(i).ListIndex = .pPostn
    'If i > 1 Then
        'If Check1 Then
        '    Flair = Data1.Recordset.Fields(14)
        '    WRep = Data1.Recordset.Fields(15)
        'End If
    
    'txtP(i) = Round(Data1.Recordset.Fields(4) / 2.85, 0)
    'txtV(i) = Round(Data1.Recordset.Fields(5) / 2.85, 0)
    'txtH(i) = Round(Data1.Recordset.Fields(6) / 2.85, 0)
    
    'txtT(i) = Round(Data1.Recordset.Fields(7) / 2.85, 0)
    'txtC(i) = Round(Data1.Recordset.Fields(8) / 2.85, 0)
    
    'txtS(i) = Round(Data1.Recordset.Fields(9) / 2.85, 0)
    'txtF(i) = Round(Data1.Recordset.Fields(10) / 2.85, 0)
    'End If

End With
Data1.Recordset.MoveNext
Next i

End Sub