Sayın @temre

Form_Load olayının kodunu aşağıdaki ile değiştirip dener misiniz?

Private Sub Form_Load()



Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim objWMIcimv2 As Object, objProcess As Object, objList As Object

Dim intError As Integer



Set ADO_RS = New ADODB.Recordset

SQL = "select * from [Tablo1]"

    ADO_RS.Open SQL, CurrentProject.Connection, 3, 1

        ADO_RS.MoveFirst

            Do While Not ADO_RS.EOF

            If ADO_RS("Seç") = -1 Then

            WebBrowser1.Navigate "bingmaps:?collection=point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & "_&lvl=15"

            End If

        ADO_RS.MoveNext

            Loop

    ADO_RS.Close

Set ADO_RS = Nothing



strTerminateThis = "maps.exe"

Set objWMIcimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")

For Each objProcess In objList

            intError = objProcess.Terminate 'Terminates a process and all of its threads.

            If intError <> 0 Then Exit For

Next



Set objWMIcimv2 = Nothing

Set objList = Nothing

Set objProcess = Nothing



End Sub