怎么把这些数据弄进数据库里

Question

59.32.0.0       59.32.0.255     广东省汕头市 ADSL
59.32.1.0       59.32.7.255     广东省河源市 /汕头市ADSL
59.32.8.0       59.32.151.255   广东省汕头市 ADSL
59.32.152.0     59.32.152.255   广东省韶关市 电信ADSL
59.32.153.0     59.32.227.255   广东省汕头市 ADSL
59.32.228.0     59.32.247.255   广东省韶关市 电信ADSL
59.32.248.0     59.32.248.255   广东省韶关市 工业东路佰胜网咖
59.32.249.0     59.32.250.255   广东省韶关市 电信ADSL
59.32.251.0     59.32.251.255   广东省韶关市 (北江区)电信ADSL
59.32.252.0     59.32.253.255   广东省韶关市 ADSL
59.32.254.0     59.33.1.255     广东省汕头市 ADSL
59.33.2.0       59.33.36.64     广东省中山市 ADSL
59.33.36.65     59.33.36.65     广东省中山市 联通绿色网苑
59.33.36.66     59.33.36.200    广东省中山市 ADSL
59.33.36.201    59.33.36.201    广东省中山市 沙溪南路5号2楼(雷柏高服装有限公司)
59.33.36.202    59.33.37.255    广东省中山市 ADSL
59.33.38.0      59.33.54.255    广东省汕头市 ADSL
59.33.55.0      59.33.73.255    广东省中山市 ADSL
59.33.74.0      59.33.177.255   广东省汕头市 ADSL
59.33.178.0     59.33.180.255   广东省惠州市 ADSL
61.131.26.210   61.131.26.210   福建省宁德市 寿宁县康乐网吧
61.131.26.211   61.131.26.213   福建省宁德市 电信
61.131.26.214   61.131.26.214   福建省宁德市 若比邻网吧
61.131.26.215   61.131.26.217   福建省宁德市 电信
61.131.26.218   61.131.26.218   福建省宁德市 寿宁天缘网吧
61.131.26.219   61.131.27.255   福建省宁德市 电信
61.131.28.0     61.131.28.89    福建省莆田市 电信
61.131.28.90    61.131.28.90    福建省莆田市 第二中学
61.131.28.91    61.131.28.97    福建省莆田市 电信
61.131.28.98    61.131.28.98    福建省莆田市涵江区 好来屋网吧
61.131.28.99    61.131.28.99    福建省莆田市涵江区 好来屋软件店
61.131.28.100   61.131.28.100   福建省莆田市涵江区 好来屋网吧二楼
61.131.28.101   61.131.28.101   福建省莆田市涵江区 好来屋网吧三楼
61.131.28.102   61.131.28.137   福建省莆田市 电信
61.131.28.138   61.131.28.138   福建省莆田市涵江区 六一路星潮网吧
61.131.28.139   61.131.28.141   福建省莆田市 电信
61.131.28.142   61.131.28.142   福建省莆田市涵江区 星潮网吧
61.131.28.143   61.131.28.162   福建省莆田市 电信
61.131.28.163   61.131.28.163   福建省莆田市城厢区 优雅网吧
61.131.28.164   61.131.28.173   福建省莆田市 电信这是一个文本文件的数据，怎么把它们存进数据库并且只挑含有“福建”的记录

Answer 1

试试：    Dim cn As New ADODB.Connection
    Dim sql As String
    Dim strTest() As String
    Dim strString() As String
    Dim str As String, strTxt As String
    Dim i
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\db1.mdb;Persist " _
        & "Security Info=False;Jet OLEDB:Database Password="
    Open App.Path & "\test.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, str
        strTxt = ""
        strTest = Split(str)
        For i = 0 To UBound(strTest)
            If strTest(i) <> "" Then
                strTxt = strTxt & strTest(i) & "/"
            End If
        Next i
        Debug.Print strTxt
        strString = Split(strTxt, "/")
        For i = 0 To UBound(strString)
            If InStrRev(strString(2), "福建", , 1) Then
                sql = "insert into tb (ip1,ip2,address,opt) " & _
                    "values ('" & strString(0) & "','" & strString(1) & "'," & _
                    "'" & strString(2) & "','" & strString(3) & "')"
                cn.Execute sql
            End If
        Next i
    Wend
    Close #1
    Set cn = Nothing

Answer 2

(ip1,ip2,address,opt)
为什么这里多了个opt呢,做什么的